CBM 8-Bit Magazine Index: Compute's Gazette Special Section

COMPUTE

DECEMBER 1993

BEST PRODUCTS
OF THE YEAR:

50 GREAT MULTIMEDIA GIFT IDEAS!

HOW TO SPY
ON WINDOWS
VISUAL BASIC 3.0
GOES DATABASE
WINDOWS VIDEO

iv

U.S. $2.95 2
yh
| —
71486'02193' "3

oO

64/128 VIEW

Look for major

changes in Gazette, starting

with the next issue.
Tom Netsel

his issue marks a turn-
ing point in the history of
Gazette. This is the last
issue that will be printed
On paper. Next month, Ga-
zette moves entirely to disk.

While the shift from ink to
pixels means a new format
for Gazette, its content will re-
flect little change. The col-
umns and features that
you've come to expect in
the magazine will now be on
disk, Jim Butterfield, Fred
D'Ignazio, Larry Cotton, and
Steve Vander Ark will contin-
ue to share their ideas, com-
ments, and expertise in
their usual columns.

Look for feature articles, re-
views of software and hard-
ware, and "Feedback," too.
All the text that was in the
magazine will be on the new
double-sided Gazette Disk.
You'll be able to read these
articles onscreen or send
them to your printer.

Those of you already famil-
iar with Gazette Disk know
how convenient it is to have
all the monthly programs
ready to load and run.
There's nothing to type in.
Until now, there was no doc-
umentation on disk; you
needed the magazine to
make full use of the pro-
grams. Now, each disk will in-
clude full documentation. As
with the articles and col-
umns, you'll have the option
either to read the instruc-
tions onscreen or to print
out a hard copy.

For some time now, we've
added bonus programs on
disk that were not listed in
the magazine. These pro-
grams were often too large
to offer as type-ins. In our
new format, we can now pro-
vide you with more pro-
grams and larger ones.
With no more tedious type-

ins, we don't have to worry
about the size of the pro-
gram listings.

Our programs may be larg-
er, but don’t expect quality
to suffer. We'll keep our
high software standards.
We have some exciting pro-
grams coming up, On the
disk next month, look for a
SpeedScript patch from
Frank Gordon that com-
bines a RAM disk/dual drive
option with a word-count fea-
ture, Frank's original pro-
gram let SpeedScript users
access two drives, but it
wasn't compatible with an
earlier word-count program.
Now you can have both
great features in one.

| want to encourage pro-
grammers to keep submit-
ting games, utilities, and pro-
ductivity and educational
programs. Gazette is still in
the market to purchase out-
standing software.

The price of the new dou-
ble-sided Gazette Disk will
be $49.95 for 12 monthly is-
sues. Those of you who al-
ready subscribe to the disk
will receive the new Ga-
zette, commencing with the
January disk. We think you'll
be pleased with the extra val-
ue that you'll be getting.

If you subscribe to the Ga-
zette edition of COMPUTE,
you'll have this one-time op-
portunity to convert your sub-
scription for only $29.95.
Look for a pull-out card in
this section for full details. If
you decide not to convert,
then you'll continue to re-
ceive COMPUTE for the bal-
ance of your subscription.

| know this is a major
change for Gazette, but |
hope you'll take advantage of
the upgraded Gazette Disk
with its new look, fresh format,
and added features. a

GAZETTE

64/128 VIEW G-1

Major changes on tap for Gazette.

By Tom Netsel.

THE 64 GOES TO PRESS G-2

Read how a 64 helped redesign a newspaper.

By Harold Stevens Jr.

REVIEWS 6-8

Wrath of the Demon.

FEEDBACK G-10

Questions, answers, and comments.

PD PICKS G-14

Rebellion and Mah-Jongg.

By Steve Vander Ark.

BEGINNER BASIC 6-16

Three challenges for the holiday season.

By Larry Cotton.

D’IVERSIONS G-18

Seeing isn’t always believing with digital video.

By Fred D'Ignazio.

PROGRAMMER’S PAGE G-20

Four tips from the new author of “Programmer's

Page.”

By David Pankhurst.

GEOS G-22

Ultimate GEOS for folks on a budget.

By Steve Vander Ark.

MACHINE LANGUAGE G-24

Branches, jumps, and subroutine calls.

By Jim Butterfield.

PROGRAMS

Chain Reaction (64) G-25

Custom Character Screen Designer (64) G-28

Right/Side II (64) G-31

Jigsaw 128 G-35

Splast (64) G-38
DECEMBER 1993 COMPUTE G-1

WRITTEN BY
HAROLD STEVENS JR.

People are always
amazed when | tell them
about the things that my
Commodore 64 can do.
They are usually blown
away when | tell them
how | use the 8-bit com-
puter in a professional
environment as part of
my job as a journalist.

| edit a suburban
weekly newspaper in
Columbus, Ohio. My 64
played a major role in
helping me redesign
and create a whole new
set of graphic devices
that we in the newspa-
per industry call stand-
ing headlines—or
standing heds for
short. Standing
heds are the
visual elements \
that identify
special areas of
newspaper
copy, such as

Volumn 1, Issue 1

ae F285 ORE

personal opinion
columns, letters to the
editor, community news
and events, obituaries,
weddings and engage-
ments notices, and
business news.

My 64 was the
answer to a problem
we had a few years
ago when we decided
to streamline our stand-
ing heds. Our main-
frame typesetting com-
puter, a Compugraphic
MCS-100, was unable
to do so without our
having to shell out hun-
dreds of dollars for
software to help us get
what we wanted.

We were looking for
ways to spice up
the standing
heds of our
newspapers in
a way that
would set us
apart from our
competition in
the Colum-

Dora st kta

bus area. We wanted
something to indicate
that the five editions of
the Columbus
Messenger Newspa-
pers were on the move
and were progressive
enough to take advan-
tage of contemporary
newspaper design, while
being cost effective at
the same time. Like
many small businesses,
we don't have a whole
lot of money to spend in
our pursuit of innovation
unless it returns a profit.

A New Look

We wanted to create
new and radically
designed standing heds
that would be stream-
lined and would utilize a
dot-screen background
with white, or reverse,
lettering. Since we were
unable to do this with
the Compugraphic
MCS-100 without the
expensive special soft-
ware, we thought we
would try to create these
headlines with the

equipment we already
had. We tried printing
them in black with white,
or reverse, type facings
and then shooting them
with a gray screen on
the PMT camera in our
production department.
This didn’t work. The
results were muddy, and
we didn't get the nice
clean copy that we
wanted.

My publisher was
toying with the idea of
buying the software for
the Compugraphic
when | hit upon the idea
of using my 64 to do the
task, If it worked, it
would cost us nothing.
About that time, our
company bought an
Apple LaserWriter II-
NTX laser printer for use
by our classified adver-
tising department to go
with its new IBM clone.
That computer was pur-
chased to print our clas-
sified ads and to keep
accounting records for
that department.

Since the PC didn't
have any desktop pub-
lishing software with it
and the LaserWriter was
a PostScript-driven
printer, | was sure |
could publish what we

needed on the printer
with the 64 and
PostScript-compatible
geoPublish, | volun-
teered to do a couple of
samples to see how
they would fly.

stores that | could pur-
chase an interface to
hook up the laser printer
to my modem port for
about $100. “No
thanks,” | said. That's
when | turned to the

On the home front

GEOS to the Rescue
The first thing | did was
to go home to boot up
GEOS. | created sam-
ples of the standing
heds with geoPuplish
and printed out a rough
draft of what these spe-
cial graphics would look
like on my Star NX-
1000C dot-matrix print-
er, This was enough
proof to management
that my 64 could do the
work. | was asked to
start working on the
standing heds as soon
as possible, All that |
required now was an
RS-232 interface to con-
nect to the printer.

Finding such an
interface in the
Columbus area was
almost impossible, and
the ones | located were
expensive. | was told by
a couple of computer

Tenex catalog for help.

What | did find was
an Aprotek Universal
RS-232 Expansion
Interface for about $40.
Immediately | ordered
the interface and
received it a couple of
weeks later. The
Aprotek interface was
exactly what | was look-
ing for. It's designed so
| can connect between
a printer with an RS-232
port and a Commodore-
style modem.

The second thing |
bought was a six-foot
RS-232 extension cord
from Radio Shack. This
let me set up my com-
puter near the newspa-
per’s laser printer.

Trial Run

On the following day, |
hauled my computer and
peripherals to work and

set up shop not too far
from the laser printer.
When | hooked up my
spare amber monitor,
geoRAM expansion unit,
and 1541 and 1581 disk
drives to the computer, |
was ready to go. All |
had to do now was plug
in the interface to the
64's user port and run
the RS-232 cable
between it and the laser
printer. | then booted
GEOS to print the sam-
ples that | had created
earlier and printed on my
9-pin dot-matrix printer.
Once in GEOS, |
moved the cursor to the
geoPublaser icon and
double-clicked it. The
screen went blank, and
a menu then dropped
down on the screen
asking me to choose
the RS-232 serial trans-
fer rate of either 9600
bps or 1200 bps to print
the geoPublish files.
Since | knew 9600 was
eight times faster than
1200, | naturally clicked
on it. Now | was becom-
ing excited. | was tak-
ing the first steps
toward using my
Commodore for what |
really wanted it to do—
desktop publishing.

December 1993

After setting the bps
rate, the file dialog menu
dropped down for me to
select the file that | want-
ed to print. | moved the
pointer to the name of
the standing heds sam-
ple that | had previously
created and clicked it to
open the file. Next came
the print option menu
asking me the number of
pages and copies that |
wanted to print and
which smoothing setting
to use for the graphics.
Since nothing needed to
be changed, | clicked
and sent the file to the
printer.

| held my breath as
the monitor went blank
and the print indicator
light on the LaserWriter
started blinking. A few
minutes later the file
dialog menu reap-

South-Western
Clty Schools

Going for broke

business
briefs

when we changed from the round boxes to the screened bars.

These are the before and after illustrations of what the standing headlines looked like
then and now. Before we changed the standing headlines using the Commodore 64C
and geoPublish, they were just boxes with rounded corners with the type centered
inside the boxes. The top left standing hed was how our boxes were before we
changed to the current appearance of the one on the top right . As you can see the
1 newer headlines created on the Commodore look more streamlined in the new format

peared, and the laser printer started
whirring. Out came a printed page. |
was excited as | picked up the first
print-quality document created by my
very own 64. At last, my dream of
being able to print professional-quality
documents on it had come true.

When my wife gave me the 64 for
Christmas in 1987, never did | think
that | would be able to do profession-
al-quality desktop publishing on it.
She had purchased the computer for
me to use as a word processor. |
would write stories on it and then store
them to floppy disks to eliminate the
piles of paper that accumulated
around my old electric typewriter.

Dreams to Reality

When | discovered geoPublish, |
learned that | could publish profes-
sional-quality printed documents on a
PostScript laser printer. All | needed
was access to such a printer. Buying
one was out of the question because |
didn't have the money to pay for one
on my salary as a weekly newspaper
editor. All | could do was to dream
that someday | would be able to print
professional-looking documents on
my 8-bit Commodore. Once the laser
samples were printed, the dream had
become a reality.

Once we saw the samples, we
started refining the standing heds. We
had a few technical problems to work
out. First, we had to decide the best
percentage that the dot screen for the

G4 COMPUTE DECEMBER 1993

bars and boxes should be. Since 50
percent and above printed too dark,
we settled on a 25-percent screen.
We had to make the dot screen as
light as possible to keep the printing
process from blotting out the white
type facing and muddling the dot
screen. Ink has a tendency to bleed
into the fibers of newsprint paper.

| began to play around with the
design of the type facing so that we
could produce white lettering with
black shadows behind it. We felt that
the shadow effect would allow the
white type to stand out more clearly
against the 25-percent dot screen
background. Then | put the type in

italic style to give it the feeling of
being in a forward motion. Once this
was done, | printed new samples and
showed them to the publisher and
managing editor. We all agreed that
this was how it was to be done.

| then sent out a memo to the other
editors on the staff asking them to list
the names of all the columns and fea-
tures that appeared in their respective
newspapers. Since all five of us share
common standing heds for local
events, military news, school news,
and so on, we created these first.

Next came the standing heds that
were customized for each individually
zoned paper..For example, | run
columns submitted by the high
schools in my area while another edi-
tor runs a feature on saving money
with coupons, and a third editor has a
poetry column

Days at the Keyboard
For the next few days, including the
weekend, most of my spare time was
spent creating headlines in various
sizes to fit in the editorial copy section
of the paper. First, | set the headlines
to go across the entire width of the
newspaper page. An 11-x17-inch
page consists of eight columns that
are each 7 picas (1.25 inches) wide.
This meant that the heds had to be 63
Picas or about 10.5 inches long, which
is the length of a geoPublish page.
The headline bars had to be one-
half inch tall with the type set in 24-
point GEOS font LW Cal. This type
style is also known as Helvetica to the
rest of the printing industry. The text
was also set up at one-eighth inch
from the left edge of the screen bars.
Previously, the standing hed bars
were one-inch boxes with rounded
corners and type set in upright
Helvetica of 30 points.

turn...

by Harold Stevens, Jr.

Using my personal opinion column as an example, you can see how we improved the
looks of our editorial page by going from a rounded corner box to a screened one.
Also, changing the type style to italics with white lettering and “shadows” makes the
standing hed appear more exciting than before.

Thousands of Commodore Owners Choose Us
As Their One Stop Supplier . Here's Why!

* Largest Selection of Commodore Software in the U.S.A.!
After six years in business. nobody in the Commodore market
is more committed to your Commodore than we are. We have
well over 225,000 pieces of hard to get software in stock to
service your every need. If you've heard of a product, odds are
that we can locate it for you. And, we stock most major
Commodore titles that are still in production.

* Hardware & Peripherals.
Although we can't get keyboards and disk drives any longer,
we can offer disks, modems, cables, interfaces, and much
more.

* Used Software Selection.
Our regular customers know how to stretch their software
dollars shopping our Used Software Listings.

* Un-Advertised Specials.
Our regular customers enjoy VIP service and great bargains
that are hard to pass up.

* Expert Technical Support.
As a regular Software Support customer, you have access to
the most knowledgeable Commodore technical departments
in the country. Of this, we're darn proud.

* Friendly & Courteous Order Takers.
You'll have a hard time finding order takers as anxious to help
you as Sandy, Mike and Claressa.

* Fast Order Processing.
Thanks to our automated computer system, huge inventory
and efficient shipping staff, most orders are processed the
same day.

* Walk In Sales Department.
We welcome visitors to our warehouse outlet. The same great
deals are available and best of all, no shipping charges.

* Worldwide Distributor Of Major Products.
Ever hear of Maverick, Super Snapshot, Super 1750 Clone,
and the 1581 Toolkit? We've been actively involved in the
ground up production and world-wide distribution of these
and many other fine Commodore products.

* Purchase From Us With Confidence.
We were very pleased when
the Better Business Bureau
came to us and told us that our
outstanding reputation quali-
fied us as members in their or-
ganization. We're here to stay,
not a fly by night, here today
and gone tomorrow outfit.

* Extensive Catalog.
Our contacts at other mail or-
der companies have told us that
producing acatalog suchas ours
istoo time consuming and worst
of all - too expensive. We say
it's the least we can do for our
customers, and wouldn't have =

it any other way. Simply call or avseenabrn peter patte |

write for your free copy.

SUMMER
1993
CATALOG

CALL TOLL FREE T'

SOFTWARE SUPPORT

INTERNATIONAL
We Stock America's Largest Selection Of C-64/C-128

Check, Out These Examples...
‘NS

GAMES
Leaderboard Golf
Beachhead Triple Pack.
Nord & Bert
Ms. Pacman..
Trump Castle Casino
Bureaucracy 128 .............
Defender of the Crown
Beyond Zork 128
4 x 4 Off Road Racing
Sega Arcade Smash Hits.
Hardball/ Tony LaRussa .
Jeopardy 1-2-Jr. Bundle...........

EDUCATIONAL
Thinking Cap ...
Stickybear Mai
CarmenU.S.A. ..
Typing Tutor 3
Word Attack .
Reader Rabbit
Sky Travel
Perfect Score SAT.
Word Spinner...

PRODUCTIVITY
Super 1750 Clone
Newsroom ....
Certificate Make
Cadpak 64 ..
Mach 128 Cart
Paperclip III 64/128 .
Printmaster Plus
Superbase 64 or 128
Video Title Shop ...
Bumper Sticker Maker .
Outrageous Pages... - $29;
Bob's Term Pro 64......... $24.97

SUPER 1750

Items Listed Above Do Not Include Shipping. Call Or Write For Your Free
Catalog Listing Hundreds Of Products And Special Offers For Your
5:00 p.m.

Computer. Our Order Takers Are On Duty 6:00 a.m. -
M- F and 7:00 a.m. - 3:00 p.m. Sat. - Pacific Time.

SOPMWARE Software Support Int.

2700 N.E. Andresen Rd.
Suite A-10

Vancouver, Wa 98661
(206) 695-1393

eae

ae)

Slant

1-800-356-1179

Major Credit Cards Accepted.

Circle Reader Service Number 190

‘weddings & engagements

guviligit on p2o9l

To determine what kind of screened background we wanted for the standing head-
lines, | tried white type against different percentages of the screen. On top is 90 per-
cent screen, followed by 85 percent, then 75 percent, 50 percent and finally 25 per-
cent, which was what we settled on. We decided to add the “shadows” to highlight

the white type facing to give it a more fuller look.

| created these standing heds so
hat they could be trimmed down to six,
ive, four, three, and two columns in
width. For the personal opinion
columns, such as those written by the
editors to appear on the opinion-editor-
ial page, | created screened boxes that
were three quarters of an inch tall and
two columns wide with the name of the
column in 18- or 24-point size and the
author's name in 15 points. The only
difference between these standing
heds and the others was that the
author's name was set in black type.

The personal opinion columns
weren't the only items set in the two-
column screened boxes. There were
some standing heds whose words
were too long to fit into the half-inch
by two-column format. For these
headlines | had to create a two-col-
umn by three-quarter-inch screened
box and place the names of the fea-
ture in two lines of type, with the
words printed in 18-point type
Creating these thicker two-column
headlines also gave us a variety of
designs to choose from when we laid
out the pages.

After creating the screen bars, |
placed the black type, which was to
become the shadow of the words,
about one-eighth of an inch from the
top and left edge. Setting the white
type over the black one-eighth of an
G6 COMPUTE DECEMBER 1993

inch from the top and left edge of the
half-inch screened bars in opaque
mode produced the shadow effect that
| wanted. In the two-column boxes, |
placed the shadows and white type
the same distance from the top and
left edge. Both the shadows and over-
laying white type were set in italics.

After | corrected small placement
errors and ran out the headlines on the
laser printer, we had them shot on the
PMT camera. This converted them to
photographic paper and made them
more durable so that they could be
reused every week. Shooting the
headlines on photo paper also sharp-
ened the resolution of the dot screen,
the white letters, and the black shad-
ows. The final results looked as though
we had used the Compugraphic type-
setter to create them. This process
took the 300-dots-per-inch resolution
of the laser printer and enhanced it to
make the heds appear as if they were
600 dpi or greater.

Start the Presses

Production day rolled around. The
standing heds were shot on paper and
waxed to be pasted onto the page with
the stories, photographs, and other
copy. The pasted-up pages were then
shipped to the printer. Two days later,
our sample copies of the papers came
back. We turned to the pages that had

the standing heds, and they looked
great. To tell you the truth, looking at
the resolution on the newsprint page,
we couldn't tell the difference between
them and anything printed by the type-
setting machine.

Later, | purchased a second com-
puter and a 1581 drive to keep at
work so that | wouldn't have to lug my
64 back and forth when it was need-
ed. | also added an amber monitor for
better onscreen resolution.

The 64 with a 1764 RAM Expansion
Unit and a second 1581 sits on a desk
of its own in the office. Since |
installed the computer and created
the standing heds, | have used this
system to create other graphics to be
used with stories in our newspaper. |
am most proud of the one created
during the Persian Gulf War that signi-
fied stories about local people who
supported the troops overseas.

As an added bonus, | was able to
use the system at work to publish an
eight-page newsletter for my user
group, the Central Ohio Commodore
Users Group. For three years now I've
been able to use my 64 in a profes-
sional manner. The icing on the cake
came the following year when the
company gave me a nice pay raise for
doing the impossible on the 64. 9

Pear
On the
Un we

home front

Soutli-Westem
City Schools

Going for broke

Above are samples of other graphics
and art work that was produced on the
Commodore 64C using geoPublish.
The bottom graphic was used as line
art to draw peoples's attention to a
story on a school district"s financial
woes, while the one on the top was
used to signify stories about local peo-

ple involved in the Pursian Gulf War in
1991-1992. The stars in the flag are the
letter “H” in LW_Shattuck font.

The GRAPEVINE GROUP INC. :

@ NORTH AMERICA’S LARGEST SUPPLIER OF AMIGA CUSTOM CHIPS AND SPECIALTY PARTS @

eS COMMODORE FACTORY SURPLUS mmm

NEW AND REFURBISHED

R ecently, Commodore elected to consolidate their stateside operations, thus making them
financially stronger. One of the first steps taken was to reduce their inventory in both the U.S. and
Canada. In doing this, select distributors were given the opportunity to purchase sizable amounts of new
and factory refurbished parts at extraordinarily low prices. This section contains new and refurbished
items, which are indicated by the letters “N” or “R” to the left of each product. Refurbished does not mean
used or pre-owned, bul simply factory remanufactured. Some units may have minor imperfections
hardly noticeable or, in the case of some monitors, faulty front doors. With the exception of a minor
imperfection, if any, most everything appears “mint” and of course everything carries a full 90 day
warranty and some itemsa fullyear. This is your opportunity to purchase Amiga/Commodore parts and

equipment at up to 80% less than an authorized dealer pays.

MONITORS
R 1084S/2002 composite/RGB high
resolution color monitor with cables.
This is the latest composite video/
RGB monitor that Commodore has
MANUIACLUFED ....sseseseereseseere $129.95
R 1802 composite video high resolution
color monitor with cables. This is the
production monitor prior to 1084
series. Works on 64/128 series and
Amiga. Also an excellent VCR or
TOaStEr MONILOL .sssseeseeeerseeeere! $99.95

R 1702 composite video color monitor with caables

R 1403 composite high resolution monochrome video with cable

R_ 1930 Bisync high resolution VGA color monitor (dot pitch .29). This companion

to Commodore's PC series works with IBM/IBM compatibles ...........-$99.95

R 1950 14" multisync high resolution VGA color monitor with automatic scanning

(dot pitch .31). Works with A600/1200/3000/4000 and IBM/IBM compatibles

(Predecessor to the 1942)... +. $249.95

R A520 RF modulator. Allows you to connect an Amiga (A500/2000/3000) to a

TV or composite video monitor. The A520 converts the RGB video signal into

composite color video

R_ A2300 Genlock Board

ple plug

COMPUTER SYSTEMS

N Amiga 500 with power supply and
software $169.95

With STARTER PACK software add.$10.00
N Commodore C64C with power supply

(latest design and revision)...... $89.95
R Commodore C64 with

SUPDIY eadsctnssssevealasunsscbeassers $64.50
N Commodore C65 This is a new C64 just released in Europe with a built in 3/2"
$129.50

1581 floppy drive on the front (PAL or NTSC)
R PC10Ill (XT) No hard drive
R PC2O0ill (XT) 20 meg hard d
R PC3Olll (AT-286) 20 meg hard drive
R PC4OIII (AT-286) 40 meg hard drive
ADDITIONAL OPTIONS
Amiga 1930 VGA Bisync color monitor with any of the "PC Serie:
dd.

y Pp

SPECIAL PRICE PACKAGES
BONUS PACKAGE A:
Commodore C64 with 1541 floppy drive and 1084S (stereo) high resolution
color monitor. Includes power supply and cables .. $229.95
BONUS PACKAGE B:
Commodore C64C (latest version made) with 1571 high density floppy drive
and 1084S color monitor. Includes power supply and cables .........6+ $299.95
BONUS PACKAGE C:
Amiga A500 computer with Software Starter Kit and 1084S (stereo) /2002 high
resolution RGB color monitor, Includes power supply and cables (List price of
package $449.00) Our price $284.95

MISCELLANEOUS
N A10 Commodore computer speakers with built in amplifier ...
N MPS1230 Commodore printer (same as Citizen 120) tractor/friction
R A2300 Genlock Board (A2000/A3000) Selling fast $64.50
N Top/Bottom Housing for A500 $16.95
N Printer Port Adapter.* Interface any Commodore printer to work any PC/PC
clone .. ++00$29.95

«$19.95
$59.95

DISKETTES
N 3%" (720K) Commodore diskette with various software that can be erased.
This is a new disk available at a low price.
Package of 10.
N Just Released 2. )
2.1 install disk (370166-01). $3.95 2.1 fonts disk (370169-01)
2.1 locale disk (370129-01) $3.95 2.1 extra disk (S7O1e8 01
2.1 workbench disk (370167-02)..$3.95 Set of all 5 diskettes ...

Order Line Only

1-800-292-7445

SEND SASE FOR FULL LIS

3 Chestnut Street, Suffern, New York 10901 © Fax: (914) 357-6243
Order Status/Customer Service Line: (914) 368-4242 / (914) 357-2607
International Order Line: (914) 357-2424 9-6 E.T. MON.-FRI

G OF ALL COMMODORE/AMIGA SURPLUS PRODUCTS

MOTHERBOARDS

N A500 (rev. 3) Complete with all chips including Ye meg Agnus/1,2
N A500 (revision 5 and up) Includes 8372 1 meg Agnus & 1.3 ROM...
N A1000 Last chance to keep a spare ....
R_ A2000 Includes 8372A Agnus & new 2.04 Operating ROM...
N A2058 Commodore A2000 8K RAM expander (2MB)
R_ A3000 (various revisions)...
N A3000 daughter (Zorro) board
N VGA 286 laptop motherboard by Commodore
R 1541 replacement control board only,
N 1571 control motherboard
R C64 motherboard (1984-7
N C64C motherboard (revision E) ....
N C128 motherboard (with new ROMs)
N C128D motherboard (with new ROMs).
N PC30/40/60 IIh.....cssserseeseee
N 1750/64 RAM expansion board
N Slingshot Pro:* Gives A2000 slot for your A500, New design with passthrough.

Now take advantage of all A2000 plug in boards $42.50
N A501 original Commodore (512K) for A500 ..
R_A2300 Genlock board (A2000/3000) ..

KEYBOARDS
N A500 (American version)......:
R_ A500 (U.K. version)
N A600/1200
R A1000
N A2001
R A300 $49.

N Encoder Board (Mitsumi) (4500/2000)...
N CDTV in bIack .....ssseseeseeeee $34.50 N 286/386 laptop

POWER SUPPLIES
N A500 Exact Commodore replacement
R AS00 (240V U.K. & Europe).
N A500 Big Foot* (A500/600/ )
N A2000 (Switchable from 110/220V)
N A2000 Big Foot* (300 watts)......

N A3000 Exact Commodore replacement $84.95
R_ A3000 (220V) (U.K. & Europe). $79.95
N A590 supply for A590 hard drive. $29.95
N C64 (sealed/nonrepairable) 1.5 amp . $9.95
N C64 (repairable)* 1.8 amp «......000+ $24.95
N C64 4.3 amp heavy duty (also used with 1750 RAM expander) $29.95
N C1541 11/1581 (external) Limited quantity. Going fast. i

220 Volt version available for ..
N C1280 (internal)...
N C128 external 4.3 am)
N PC20 (75 watt)...
N 1680 power supply for A1200RS modem.

DRIVES

N A500 internal 880 K drive: Exact drop-in replacement... .!
R A590 hard drive (20 megs) with controller & power supply $169.95

With extra 2 megs installed add. $74,00
R A1010/1011 Amiga external 312" floppy (with $54.95
N A2000 high density drive (1.76 megs). $91.50
R A2000 internal driv $79.95
N A3000 internal 372" $89.95
N A2090A hard drive controller (no memory, $17.95
N A2091 hard drive controller (new ROMs).. $64.50
R_A3070 150 meg tape backup (complete) $229.95
N Sony tape cartridge for above (OD 6150) $18.50
R 1541 complete floppy drive with cable .. $64.95
N 1541-II complete stand alone floppy drive $90.50
N 1571 complete stand alone floppy drive (Selling out fast) . i
R 1571 same as above but refurbished .
N 1571 replacement control board only
N IBM/Commodore bridgeboard floppy

*NOT A COMMODORE PRODUCT

Circle Reader Service Number 110

REVIEWS

WRATH OF THE DEMON

Are you bored with the games that are
available for the Commodore? Do you
get discouraged by programs that
promise a lot but deliver little? Do you
think you'll have to upgrade to a PC in
order to get full screen graphics and
true multilevel action? Then Wrath of
the Demon by ReadySoft has some de-
lightful surprises in store for you.

The creative wizards of the Abstrax
research team have come up with a
phenomenal program in Wrath of the
Demon. This game offers the scope,
graphics, multilevel scrolling, and
sound track that previously had been
available only to PC owners.

The game itself is a challenging
quest that pits a demon and his host of
minions against our hero, an unassum-
ing stranger who happens to be in the
wrong place at the right time. The he-
ro (you) is entrusted with the mission of
finding and saving the princess and rid-
ding the kingdom of the evil demon. If
he succeeds, the king has promised
the hand of the princess. If he fails; all
is lost.

The game opens with an impressive
musical score. It's just one of nine mu-
sical selections you'll hear throughout
the game. The title graphic tells the sto-
ry. It shows a bullish demon holding a
sphere with the lovely princess impris-
oned inside. Off to one side, our hand-
some Conan-like hero rushes to the res-
cue, brandishing his sword.

Sure, a lot of games have impres-
sive title graphics, but then the games
don't live up to the promise. The graph-
ics in those games end up being either
too small or uninspiring. You know the
kind | mean—the ones where a charac-
ter who looks like a minuscule stick
man moves along the bottom inch of
the screen and the rest of the screen
is a solid blue that | can only assume
is supposed to represent the sky. If
that's what you've been seeing, you ar-
en't going to believe your eyes when
you load Wrath of the Demon!

The Abstrax team originally de-
signed Wrath of the Demon to take ad-
vantage of the sophisticated hardware
in the Amiga computer system. When
they converted the program for the
Commodore, they were determined to
push that hardware to its limits. They

G-8 COMPUTE DECEMBER 1993

succeeded admirably. The game has
over 600 screens of action; smooth,
high-tech parallax scrolling; and richly
detailed graphics that utilize more
than 100 colors.

The animation is superb. There are
over 1400 frames in the game. The
frames scroll smoothly across the
screen without jumpiness or distortion.
For example, the opening level fea-

>

:_ ee
The animation in Wrath of the Demon is
superb, with more than 1400 frames.

= i

tures our hero riding a galloping white
charger. The mountains, shrubs, and
clouds scroll by flawlessly. In addition,
there are rocks to be hurdled, skele-
tons to be avoided, and small bottles
(potions) to be collected for later use.

The characters have a wide range
of movement. They jump, walk, roll,
duck, and fight. In the opening scene,
the hero must lean down from his sad-
dle and scoop up items while his
steed thunders forward at full speed.
He must also hurdle rocks and other
obstacles that get in his way. In fact.
the horse will balk rather comically and
refuse to go further if the hero doesn't
guide him over an obstacle.

Meanwhile, the hero also has to
watch what he is scooping up. Small
bottles represent potions, but skulls,
rocks, and other items will drain the he-
ro's energy if he touches them. Don't
be fooled into thinking it would be eas-
ier to just gallop forward without attempt-
ing to gather objects. He'll need the po-
tions later if he hopes to have success
against the various monsters he'll
meet along the way.

The game's monsters are large, intel-
ligent, and deadly—120 different vari-
eties in all. Low-flying birds try to
knock you from your horse. Gnomelike
creatures attack you with pickaxes and
throw rocks at you. (Their aim is dead-

ly.) Dragons breathe fire at you. As for
the demon himself, well, suffice it to
say he is an awesome creature more
than half a screen tall.

In order to defeat the monsters,
you'll have to develop a different strat-
egy for dealing with each one. Whatev-
er approach you adopt, try to keep
your hero as far away from the mon-
sters as possible. Never let them back
him into a corner. In fact, sometimes,
it's better to try to avoid a monster rath-
er than attack it. However, killing the
monsters has some advantages—some-
times they carry potions that your hero
can collect for later use.

The three potions that are most help-
ful are Shield potions, Zap potions, and
Heal potions. The Shield potion makes
the hero immortal, but only for three sec-
onds. Zap potions will kill the monsters
around the hero or at least take away
some of their power. Because of their
constitution, some monsters have
some immunity to the Zap potion. It's in-
teresting trying to figure out which mon-
sters are which.

The Healing potion is the most help-
ful. It will cure all your hero's wounds
and restore his energy to the maxi-
mum. He'll need it. There are more mon-
sters waiting on the next level,

Onscreen graphics help you keep
track of the hero's energy level and the
number and type of potions he has re-
maining. Unfortunately, there is no indi-
cator for the monsters’ strength, so
you're never sure how close to death
they are. You'll have to keep hitting,
jumping, running, and punching until
you defeat them. This is made more diffi-
cult by the fact that the monsters sel-
dom attack alone. Sometimes your he-
ro will be outnumbered two or three to
one. So use those potions carefully!
The game will really put your joystick
skills to the test.

You'll need more than just dexterity
to master this one. The exploration lev-
els of the game will take the hero
through murky caves, pagan temples,
and elaborate castles. You'll need to
make good maps of some of these lev-
els, or you'll never get our hero out of
the labyrinth of passages.

The game isn't perfect; there are
some flaws in it. One is the lack of a fea-
ture to save your game or position.
This feature is available for other sys-

tems but not for the Commodore ver-
sion. Another drawback is the manual.
It's sketchy at best and was written to
encompass all versions of the game.
The manual tells you*more of what the
Commodore version can't do than
what it can.

The biggest drawback | found was
the loading time both to start the
game and between scenes. Even us-
ing my Epyx FastLoad cartridge, the
loading time ran anywhere from 30 sec-
onds to a minute. At the rate | was dy-
ing and having to restart the game, |
wished it would reload faster.

However, | have never seen a Com-
modore game that has offered such su-
perb graphics, intricate plotting, and
fast action. It shows what the 64 can
do with the right programming. Let's
hope more such games are headed
our way.

MARTI PAULIN

ReadySoft

30 Wertheim Ct., Ste. 2
Richmond Hill, ON
Canada L4B 1B9

(416) 731-4175

$29.95

Circle Reader Service Number 281 a]

GAZETTE
IS MOVING

This is Gazette's final edition to
be printed as a part of COM-
PUTE magazine. Starting with
the January 1994 edition, look
for all your favorite columns and
features on the new Gazette
Disk. Look for more ready-to-
run programs, too—complete
with on-disk documentation.
Upgrade your U.S. subscrip-
tion and get 12 monthly issues
for the special price of only
$29.95. Send check or money or-
der to the following address.

Gazette Disk
P.O. Box 3250
Harlan, IA 51593-2430

}] 10-200, 245 MB (Specal Eston)

}] F-4000 (00K. 18 MB and 32 MB)

I] Sroe £004 32a)

[] RAMUrk Banery Bacup (Optonal)

Paraie Cape (RAMLna © HO}
1 orshG SIMs

$16.00 Big Bue Reader NEWiI! Verson 4.
$1300

$18.00
$o0 Oe T Kose6 MoaakT Mc irerace $105.00

FD Series 3.5” Floppy Disk Drives
'FD.2000 (BOOK and 1.6 MB)

Maitrame
17985 Marple Macross
$249.95 Menace

$1500 pre
FD ReahTene-Cock Option Navy Jace OLTOX7 MO Eat

‘Bor of 10, High Dery Diss (1 6M)

$5.0 RUN C128 Furpae

‘JittyDOS: RUN C64 Garreoas

76.00 a

16.00 1571 inwmais

$1500 Anatomy ofthe 1541

$1509 C128 BASIC Tranng Guoe
15.00 C128 Compute Aied Design
16.00 Commodre 64 Trcks and Tips

$513.00 Graphics Book for me C-64
151500 Prrter Book torre C64
$10.00 loues ior Ute on Your C4

$1000 Tele

wunicati

$1600 Dogue 128

$10.00 SceecTemn (Abacus)
$17.00 Swatirk RS-232 Cartons Uwe macract $9995

July/August
NowDee

$2400 Swatirk Yocum Cable (089-0825)

Marcnv/Apri
July/August
NowDec

{$18.00 BOCA 144K Bava Moga

$2000 BOCA 144K wwtlnn ard Cable $27900 s

2: ATA || doy est

= S10 Syretany Si Carroge

fisoo Setae $3500 Geocanie Compatbie Prt Cable
$1600 swe Sper Gap

$4920 S.rersase 64 Vorson 301 (Precision)

RUN Back Is

= 1988 -
‘January, February, March, Agr, May,

$16.0 xetec Super Graphix SF.

2st caveoe Pot rs
Be esran earns
So some anvecs
$e crsntiaoe

$2800, Chanpak 128 (Abacus)

$25.00 C-64, C-4AC Power Surely (Reparabia)

$2506 RUN Procuctwey Pak |, or lt (Specty) $15.00 C-128 Power Supe (Reparatio)

$20.0 RUN Super Starter Pak 1541

‘SCSI Hard Drive for the C64 & C128

HO Series Hard Dives are available incapacties upto 200 MB,
are Ly parttonable, and can emate 1541, 1571, & 1581

fer sunerio compatilty
‘commercial sofware including BBS, Productivity and GEOS. And with new pring, HD

I Series crvesotler the lowest cost MB ol ary 64/128 storage device.

Power Backed ible REU
‘The fastest possitie form of storage, RAMLink provides instant

Use, Ideal for those requiring maximum

Se
types of sofware ard hardware incising GEOS.

U.S. Shipping Information

£0

$20.00 1881/1541. Power Suppty_
$85 [ ORDERS: (600) 638-3263

January February, March/Aon\, May
INF(

1.6 MB and 3.2 MB 3.5" Floppy Disk Drives
‘The FD-2000 and FD-4000 disk drives utlize today's latest 3.5inch

et on

(Enhanced Density)
‘1541, 1571 and 1581 style partitons, Native Mode |
can actualy read and wnte 1581 disks. FO'sfeatur bult-inJttyDOS,
‘SWAP button and optional ATC. High capacity, speed and compatiilty make the FD right for
every application, including GEOS.

- Speeds up disk access by up to 1500% while
TifEYDOS eiaining' 100% compatiolty with sortware
+ Speeds up Loading, Saving, Vertying, Formating and Reading Writng of Program, Sequenttal,
‘User and Relatve fles unike cartridges which only speed up Loading and Saving o! PRG fles
+ Buln DOS Wedge plus 17 additonal features inducing fle copier, text dump, printer toggle, and
rredeinable tuncton keys make using your computer easier and more convenient
[ROM upgrade installs easly into most computers and disk drives. Supports C-64, 64C, SX-64, C-
128, 126-D, 1541, 1541C, 1541-11571, 1581 and more. 128 system supports both 64 and 128

}] Books & Software: First item $5.00. plus $1.00 for each addi item. Hardware: $5.50 per item, 2nd Day Air $10.00,
|| Power Supplies: $7.50 ea, 2nd Day Al $14.00, Hard Drive: $15.00, 2nd Day Alr $25. RAMLInk, FD Drive: $9.00,

2nd Day Air $16.00. RUN Issues: $5.50 (2), $8.50 (6), $7.50 (12), Note: Prices subject to change without notice. Call
for current price and availablity. ALL Foreign Orders Cail or Wrte for shipping details. Payment: MC, Visa. Money
(Order or Bank Check. COD shipments acd $5.00, COO's over $200.00 require advanced deposi. Personal checks BBS:

‘are held for 3 wks. No refunds on opened software. 30 day return pol

10% restocking foe is

quired on all returns. PAL EST

Circle Reader Service Number 139

DECEMBER 1993 COMPUTE G-9

Questions and
answers

about TurboD0s,
Commodore's

support for the 64,

G-10

FEEDBACK

Bug-Swatter
TurboDOS (June 1993)
doesn't work on 1541-II

drives. Author Hong Pham of-
fers the following suggestion
to fix the problem. First, load
and run TurboDOS. Then af-
ter the startup message ap-
pears, enter the following line
in immediate mode.

POKE 4508, 234: POKE 4509, 234:
POKE 4510, 234

To save this modified version
of the program, type BSAVE
“TURBODOS.MOD",8,2049,
10493.

In Scarce Supply
What's»the word on the 64?
Does Commodore still sup-
port it or not?

RAYMOND MAY
PALATKA, FL

Commodore still supports the
64 in Europe, but not in the
U.S., according to Fred
Bowen, a senior engineer at
Commodore. The company
has entered into an agree-
ment with Software Hut (800-
932-6442) to sell new and re-
furbished 64s, drives, and oth-
er equipment, and The Soft-
ware Management Group
(410-992-9975) will offer post-
sale support to Commodore re-
sellers, various dealers, and
end users. Service centers
will work with SMG for all war-
ranty-related activities. SMG
has its headquarters in Colum-
bia, Maryland, but plans to
open offices in West Chester,
Pennsylvania, and Memphis,
Tennessee.

Appending Programs

| have a couple of financial
programs that | have created
over the years that | would
like to combine into one larg-
er program. I'd like to use a
menu subroutine to run which-
ever program | desire. A cou-
ple of these programs are fair-
ly long, and I'd rather not

COMPUTE DECEMBER 1993

have to type them in again.
Isn't there some way | can
merge these without having
to retype them?

DARRELL HUNLEY
WACO, TX

The easiest way to combine
several programs is to ap-
pend one to the other. This
means that you'll have to
change the line numbers of
the second program so that
its lowest number is higher
than the highest number of
the first program. This simply
means that the programs
with high line numbers are
tacked onto the end of pro-
grams with low line numbers.
lf. the line numbers overlap,
you'll have a problem.

The easiest way to append
programs is to load the first
program and then in direct
mode type POKE 43, PEEK
(45)-2: POKE 44, PEEK (46)
and press Return. Then load
the second program and
type POKE 43, 1: POKE 44, 8
and press Return.

List the program, and you
should see that the second
program has been appended
to the first. Save this new pro-
gram. If you wish to append
another, repeat the process.

If PEEK(45) should happen
to be a0 or 1, you'll get an er-
ror massage. If this happens,
you have to change your in-
structions by typing POKE 43,
PEEK(45)+256-2: POKE 44,
PEEK(46)-1 and then continu-
ing as before.

Merging two programs into
a single program with lines
sorted correctly requires some-
thing else. This is different
from appending one program
onto another. You might have
a subroutine that you've writ-
ten, and you'd like to enter it
without having to rewrite it.
You can use the following pro-
gram to merge two programs.
Just make sure that neither
program contains the same
line number as the other.

FOR J=40960 TO 49151:

POKEJ, PEEK (J) :NEXT

POKE42231,56:POKE4228

8,96: POKE42585,96

BK 59020 FOR J=83@ TO 909:READ
V:POKEJ, V:NEXT

MJ 60000 DATA 162,8,32,198,255

732,2987,255,32,207,25

5,165

DATA 1,41,254,133,1,1

60,8,32,207,255,32,20

7

sc 59080
AQ 59618

GM 69010

AP 60026 DATA 255,240,32,32,20
7,255,133,20,32,207,2
55,133

PS 68030 DATA 21,32,207,255,15
3,9,2,248,3,200,208,2
45

XQ 60040 DATA 152,24,105,5,168
732,162,164,76,79,3,1
BF 600650 Oa 1,9,1,133,1,32,8
9,166,76,128,164
To use this merge routine,
load it, run it, and then type
NEW. Be patient; it will take al-
most a minute after you type
RUN before the computer will
be ready again.

Then type in or load a BA-
SIC program. Merge addition-
al programs on disk by typing
OPEN 8,8,8,"FILENAME"”:
SYS 830. Filename is whatev-
er program you have on disk
that you want merged with
the one already in memory.
Be sure to save the newly
merged program. You can
turn off the blinking light on
the disk drive by typing
OPEN 15,8, 15,"l": CLOSE 15.

Author Information
You should publish the ad-
dresses of your authors so we
can write to them. Also, you
should include more biograph-
ical information such as age,
sex, hobbies, and nationality.
Also, are you guys going to
sell any more disk products?
| notice that you have a few dif-
ferent disk indexes. Why don't
you combine them into one?
If you have public domain
programs on your disk but
don't pay the authors, then
your corporation is freeload-
ing off of them. Is your disk
still going to publish bonus pro-
grams that are too large to
type? What about graphics?
Do you still want them?

HENRY WILLIAMS
CANADA

YEAR-END SALE; TAKE 30% OFF THE TOTAL OF YOUR ORDER!
Valid from Noveaber 20th---Decenber 34, 1993
C-64 # C-128 # C-16 # Commodore +/4 Computer Software

PSC/ Pron Shp Grph--Sd/ei1dec-C/qanoe-N/nath-S/eci-E/Eng
ED/oduc, ~-GE/qo0g,-UT/uti |-PR/prod-TE/to locon--MU/aueic

PSGraph, STATE A/3 Bik/non-C= or B/2 BIk/C= Printoret

++ » . ITEM + COST +
A-KJV BIBLE+PSC+ MU +6 35+4
Craphice & MU 7+2
C-SMario3,Krkout,Pkr,+ 5S+#2

« Aotivitiog 142
G-ED Pak-A MSEGE etc, 1342
H-ED Pok-B MSECE etc, 70+7
1-Bke Amazing C64or{28 342

SHIPPING &

HANDLING . ,

AHO CE TU
O-KJV BIBLE -- +74

P-GPakC C128-40/80 606
Q-ClaseMU Bach-Haydn+
A-PETS 347 PSC donee,
S-SPORTS 449 PSC Mixed
T-CARTOON Char 202 PSC
U-COMPTR PARADE 255PSC
V-FASTCAD Vi--Enhanced

J-GPak-A GWario, 11, 111
Browory+Totris Clones
64C/CO4%128-40/8000! 9+

K-GPak-B TrachanOutpet
Starraidor-Air Donon 9+4

L-Pooplo-SS4PSC MFCh, 8+2

M-Diek Notcher-Now veo
back of DD/DS disks 344

### JIM HEHL COLLECTIO!

JHOO-BIB Timo+4/64 256 641

JHO1-+4 GPak Over 2006 30+5

JHO2-+4/64 TorminalPak 944

JHO3-C16 Combo 7Oprge+ +4

JHO4-Superbace+4 kDooe 444

JHOS-H,A,L. Cupdt) u/doo
Sper seennty eeabire4 +4

JHOG-UT#4,,Protr, Cores 1243

JHO7-Prnted Wd/Fle,C64 S+2

CAD 3.0+SupportFi les 10+2
U-FunGrapht cea chDeno?

SOfonte-H ResScrnDap 6+2
X-45441/71781 UTL Combo 12+3
Y-GEOS Programmer Man,

and GEOS V.1,0 Doc, 8+2
Z-KJV BIBLE for C-128

40/B80co! rdor/prnter 35+4
+/4 # C-16 # C-64 eet
JHOB-Spoll Chkre #4764 Set
JHOS-PROJECTS -- +4/64% Sei
JH1O-HAM RADIO PRCS +4 4+4
JHt4-Ck Prge Cib/+4/64 444
JHI2-ACE+4/64F1Sim JYS 744
JH13-Sabotour+4/64 nts 744
JHi4-RugRidor+4/64 JYS 7+4
JH1S-Craphics+Proge +4 7+4
JHI6-MaePat nt Vu w/pice 244

Sond SASE for info on now downloade and other itenc!
Rog, $/diek ed; $3B/1-3 §$2,50 B/4-9 $1,75 B/10-19, eto,
CATALOG & Bonve Disk; CO4/128-47p-§24+2 # Plus/4-18p-$2+4
PAYMENT MO/CK-US$/Bank-CA,+8,25,% tx/item-No conser! .trd,
HANDLING: Bank Chock/M,0,-{et and Chocks when cleared,
§ & H--US Postal Svc, Domestic and International Ratoe

TO; KFPDS/Konnoth Franklin--P,0, Box 470464
. CA, 90047-0464
ho PO Select C= Library,
Wo value your patronage, This ie our year H 3}

Thanke!
Circle Reader Service Number 197

ve

Fun brephies

FUN GRAPHICS MACHINE (FGM) 1S AN “AL “ GRAPHICS

PROGRAM FOR THE C=64. WHAT CAN BE ATED WITH FGM IS

ONLY LIMITED BY YOUR TAAGINGT LON A FEW EXAMPLES:
6

(75h

SUPPORTS
ALL
CmO ORIVES

RLAY ---$3.50 EA
OR C64 IS SHIPPED

FOR

FGM UPDATE DISK UI
PLEASE ADD FOR SH
FOREIGN ORDERS:
CANADA/MEXICO $1.00,
U.S. FUNDS ONLY

sannHESBOUOEOE SO HOOUDE SOHO DESO IOS IOERR RIO
The FGM Connection, P.0.Box 2206, Roseburg, OR. 97470

FOR MORE INFORMATION CALL 503-673-2234

+5 UP.
PPING ~---$3,50
a

6
|
F

AS FOLLOWS:
S $5.00

8 BIT

PO BOX 542
LINDENHURST NY 11757-0542
HAPPY HOLIDAYS! 6 PACSETS
PD & Shareware Sots
KEYBOARD SEELS | pon ABIG HIT AT
DONTLET YOUR MISS. ONLY $5.00
COMPUTER SUFFER OuTI B
A MELTDOWN Once again 8 BIT is
Protects your keyboard making your holidays
oven while you typo { a little BIT cheerier.
064 oF Vic 20...n.HVS64 | We are repeating our
Comm. 64C...a.uHVS64C | Special Holiday Offert|
Comm. 128........#VS128 If you have not yet
Seed # VS128 also fits your received your offer,
Commodore 128D computer. | or your copy of our
Save your Commodore! NEW CATALOG,
ONLY $19.00 contact our office.
QUICK GUNNB Further Protection
Joystick / Flyingstick for your Commodore
4 seperate fire buttons —_§.25* Cleaning kit.....$2.50
to assure your comfort! 3,5" Cleaning kit......$2.50
(Trigger, Thumb, and = Mouse Cleaning kit.$3.00
both left & right base.)
Hand Contoured Stick MINDSCAPE
And 4 suction cups on POWERPLAYERS
the bottom of the base. JOYSTICK
for complete control !
FOR SERIOUS
GAMERS ONLY! su00
ONLY $ 15.00 *

SHIPPING $2.00 For First Item + $1.00 cach additional item
*U.S. Funds Oaly! *SORRY NOC.O.D.’s OR CREDIT CARD ORDERS

FOR A FREE COPY OF OUR CATALOG, CALL:
(516)-957-1110 MONDAY - FRIDAY 10am to 5pm EST

Circle Reader Service Number 162

SOFTWARE CLOSEOUTS

For Commodore 64 & 128

PRINTER'S PATRIOT, SPELLICOPTER, TAG TEAM, MONDU'S FIGHT PALACE,
COMBAT COURSE, INDOOR SPORTS, SHINOBI, ZORK 1, QUANTUM LINK,
TURBO OUTRUN, UNTOUCHABLES, SHOGUN, FEUD, MISSION ON THUNDER-
HEAD, STARCROSS, ALCON, UNDER FIRE, MACBETH, RASTAN, BUBBLE
BOBBLE, PET EMULATOR, ARKANOID, ARKANOID 2, QIX, SKY SHARK,
CHAMPIONSHIP BASEBALL, DAMBUSTERS, DEADLINE, ONE MAN & HIS DROID,]
PLASMATRON, PRO-GOLF, SPITFIRE ACE, HELLCAT ACE, SUSPENDED, ZORK 2,
ZORK 3, SILENT SERVICE, RENEGADE, ARTURA, BUTCHER HILL, CONFLICT IN
VIETNAM, REVENGE OF DEFENDER, FINAL ASSAULT, PRESIDENT ELECT,
GHOSTBUSTERS 2, SKATE WARS, PUFFY'S SAGA, CHESSMASTER 2100,
SONGWRITER, TERROR, GHOSTWRITER 128, RICK DANGEROUS, T.V, SPORTS
FOOTBALL, EASY SPEECH, SPACE HARRIER, M.A.C.H., F-15 STRIKE EAGLE,
AIRBORNE RANGER, RAMBO 3, FAST BREAK, ACROJET, HEROES OF THE
LANCE, NETHERWORLD, XENOPHOBE, DIE HARD, TAKE DOWN, THE
GAMES:WINTER, GOLDEN OLDIES, WORLD'S GREATEST FOOTBALL,
MINDSHADOW, SKYFOX, PITSTOP 2, TOP GUN, TOWER TOPPLER, MANIAC
MANSION, BEYOND THE BLACK HOLE, CALIFORNIA GAMES, DREAM TEAM,
SERVE & VOLLEY, DEVON AIRE, FIGHT NIGHT, JET BOYS, SUPER SUNDAY,
BOP 'N RUMBLE, TRI-MATH, TECHNO-COP, MAGIC MADNESS, TURTLE
TOYLAND JR., RAMBO, STATIS PRO BASEBALL, SGT. SLAUGHTER,
CLUBHOUSE SPORTS, DIG DUG, CUTTHROATS, CROSSBOW, COMICS, KIILLED
UNTIL DEAD, PSI 5 TRADING CO., COMPUTER DIAGNOSTICS, PRO TOUR GOLF,
TAU CETI, GREAT ESCAPE, ARMY MOVES, CAPTAIN FIZZ, INTO THE EAGLE'S
NEST, GAUNTLET 2, BOSTON COMPUTER DIET, BAD DUDES, BATMAN CAPED
CRUSADER, MONDAY NIGHT FOOTBALL, ROBOCOP, EYE OF HORUS, MATH
MAZE, DESIGNASAURUS, EUROPEAN NATIONS, B. , WARLOCK, THUD
RIDGE, DARK CASTLE, SUMMER GAMES 2, WINTER GAMES, IMPOSSIBLE
MISSION 2, SUB BATTLE, WORLD GAMES, TONY LARUSSA BASEBALL,
PARALLAX, SPY VS. SPY, NINJA, PENSATE, QUEST OF THE SPACE BEAGLE.

TONS OF ADDITONAL DEALS LISTED IN OUR CATALOG...ORDER NOW!!!

a ‘O ORDER: Send check or money order, including
NISAIMG/ ORDERS CACATONUERES Ishipping charges of $5 for U.S.A., $8 for Canada, $16

Il others. California addressesmust include 7.25%

COMPSULT

LL
WE HAVE LOTS MORE C-64/128 PLUS
P.O. BOX 5160 TONS OF SOFTWARE FOR IBM,
SAN LUIS OBISPO, CA 93403] APPLE, MAC, AMIGA, ATARI & MORE!

Circle Reader Service Number 114

Information
about authors,
possible
public domain
ripoffs, a

directory lister, and

G-12

FEEDBACK

Gazette forwards mail to its au-
thors whenever a reader
writes with a question about a
program that our staff cannot
answer. We also forward any
mail that’s sent to an author in
care of the magazine. We in-
clude biographical informa-
tion whenever an author sup-
plies it, but it's not required.
(As a matier of fact, you
didn't include your city or prov-
ince in your letter, but we iden-
tified the country from the
stamp on the envelope.)

Like many other compa-
nies that offer Commodore
products, we too have no-
ticed sluggish sales. That is
one reason that there are no
plans to update the Gazette In-
dex. The Index was a cumula-
tive one, however. That is, we
updated it each year, adding
on to the previous contents.
The Index includes programs
and articles from 1991 back
to 1983. At this time, there are
no plans to update it again.

While SpeedScript itself
hasn't changed since its last
disk, we have published a
number of enhancement pro-
grams. We have thought of of-
fering a disk of those proa-
ucts. We have also thought of
offering a two-disk set of Lar-
ry Cotton's “Beginner BASIC”
columns and programs. At
this time, we doubt if there is
enough interest in these prod-
ucts to make them economical-
ly feasible. If we're wrong, we
welcome your comments.

If you've read Tom Netsel's
comments in this issue's “64/
128 View,” you know that
there are major changes com-
ing to Gazette. The decision
to go to an all-disk product
means several benefits to our
readers. Since you no longer
have to type in our programs,
we don't have the same limits
on program size. We also
won't have the 16-page restric-
tion that we've had in print.
We can now offer more pro-
grams as well as larger ones.

COMPUTE DECEMBER 1993
°

Steve Vander Ark has
found some very good public
domain and shareware pro-
grams for our disk. We plan
to continue with his ‘PD
Picks.”” As for ripping off
those authors, we do our
best to contact them before
publication. We offer a con-
tract that grants us the one-
time use of their programs,
and we also pay an honorari-
um for that use. Whenever we
include a shareware program,
we hope that you'll do your
part by sending the authors a
few dollars for the programs
that you find useful.

While we still receive a
large number of program sub-
missions, we get almost no
graphics these days. We can
only assume the number of ac-
tive Commodore artists has de-
clined, Also, since we re-
ceived no feedback about
our dropping ‘Gazette Gal-
lery” from the disk, we as-
sumed that you readers
didn't miss that feature either.

Directory Lister

Here is a directory lister for
the 64 that | use all the time in
my programs, and | find it
quite helpful. Other readers
who program may find it use-
ful as well. This program will
read the directory of drive 8,
9, or whichever one you spec-
ify without interrupting or los-
ing the program that current-
ly is in memory.

10 PRINTCHR$(147):
INPUTDRIVE 8 OR 9”;DN

20 PRINTCHRS(147):
PRINTTAB(6)"‘DISK
DIRECTORY”;DN

30 SYS57812 ‘‘$”,DN: POKE 43,1:
POKE44, 192: POKE768, 174:
POKE 769, 167: SYS47003,1

40 POKE782,192: SYS65493:
SYS42291:LIST:POKE 44,
8: POKE 768, 139: POKE 769,
227

50 PRINT: PRINTTAB(6)"* HIT ANY
KEY”

60 GETAS: IF A$="'" THEN 60

70 RETURN

Renumber the routine to fit
anywhere within your pro-
gram, and be aware that line
70 will need a GOSUB in or-
der to work properly.

DAVE WASENDORF

DENVER, CO

Where’s SpeedCalc?

| the June issue there's a no-
tice about a bonus template
for use with SpeedCalc for
tracking stock holdings. Be-
fore | ordered the disk, | check-
ed to see if | had SpeedCalc.
When | couldn't find it, | boot-
ed the Gazette Index to see
when the program was pub-
lished. | didn’t find any men-
tion of it. | could use this tem-
plate if | had SpeedCalc.
When was it published?

RAY MUSICK.
OKLAHOMA CITY, OK

The reason you couldn't find
SpeedCalc on the Gazette In-
dex disk is because Speed-
Calc was never published in
Gazette. It appeared in the
January 1986 edition of COM-
PUTE. (Remember the good
old days when COMPUTE pub-
lished type-in programs for
the Commodore, Apple, IBM,
and Atari?) It was also availa-
ble on disk.

A few years later, we is-
sued the Gazette Productivity
Manager disk ($14.95). In ad-
dition to a financial planner,
and data base, this disk con-
tained GemCalc, a spread-
sheet based on Speedcalc
but much larger and power-
ful. Files and templates for
these two programs are com-
patible, however. If you don't
already have a spreadsheet,
you might want to consider
GemCalc. It’s a great buy,
and the disk is still available.

Since SpeedCale was nev-
er published in Gazette, may-
be it's time to correct that over-
sight. Look for it in an upcom-
ing issue of Gazette. a

ible Search 3. 7

1. Entire Old & New Testament text on 4-1541/71 disks.

. An Exhaustive English Concordance on 2-1541/71 disks.
Indexes every word in the entire Bible; 700,000+ references.

. Incredible five (5) second look-up time, per/word, per/disk.

. Instant, automatic spell checking of more than 12,800 words.

. Wildcard and boolean AND, OR & NOT search options.

Search the entire Bible in 5 seconds with 1581 or HD (v 3.52).

. Money back guaranteed!

KJV $39 | NIV $49 | KJV & NIV $75

Includes: C64 & C128 programs; screen, printer and disk output;

users guide, disk case. Available on 7-1541/71, or 4-1581 disks.
= Any questions? Call or write for more information.

Also available NEW, Online Bible Search for Amiga!

Big Blue Reader 128/64 - 4.1

Transfers word processing, text, ASCII, and binary files between

C64/128 and IBM PC compatible 360K 5.25" and 720K 3.5" disks.

BBR Version 4.1 features: Transfers ASCII, PET ASCII and Screen

Code files including: WordWriter, PocketWriter, SpeedScript, PaperClip,

WriteStuff, GEOS, EasyScript, Fleet System and most others.

Supports drives # 8-30, New Backup (C128) and Format (1571/1581)

programs. Reads MS-DOS sub-directories, uses joystick, and more.

Includes C128 & C64 programs, Requires 1571 or 1581 Disk Drive

Big Blue Reader 128/64 - 4.1 only $29

Version 4.1 upgrade, send original BBR disk plus $18.

Order by check, money order, or COD. US funds only.
ta FREE Bookrate shipping in US. No Credit Card orders.
Canada & Mexico add $4 S/H, Overseas add $10 S/H ($5 BBR)

SOGWAP Software ® (219)724-3900

115 Bellmont Road; Decatur, Indiana 46733

Yes, save time and money! Subscribe to the Gazette
Disk and get all the exciting, fun-filled Gazette pro-
grams for your Commodore 64 or 128—already on
disk!

Subscribe today, and month after month you'll
get all the latest, most challenging, and fascinating
programs published in the corresponding issue of
COMPUTE.

New on the Gazette Disk! In addition to the
programs that appear in the magazine, you'll also
get outstanding bonus programs. These programs,
which are often too large to offer as type-ins, are
available only on disk—they appear nowhere else.
As another Gazette Disk extra, check out

What do all of these drives
have in common?
They all perform at their best

with The Compression Kit.

& The Compresion Kit Uy
jackup System

7 HOT Must Have Utilities

Y Filemaster: Copy, move, delete, and replace files
with ease. (The in house favorite.)

1541

Procopy: Copy 1541/1571/1581 disks and CMD
Native partitions (Single or dual drives.)
Archiver: The consumate file backup utility.

(it's so powerful and easy to use, it'll make you scream!)

1541 Disk Boa: squeeze those 1541 5.25" SS/DD

Disks into convenient backup files (Backup those disks.)
1571 Disk Boa: squeeze your 1571 5.25" DS/DD Disks CMD RAMLink

into convenient backup files (That means both sides folks.) E

1581 Disk Boa: squeeze those big 1581 3.5" DS/DD

Disks into convenient backup files.
(CMD RAMDrive

CMD Native Boa: Backup your CMD Native Partitions

with confidence (Safeguard your valuable data.)

All utilities include a full featured 3 stage verify.
Menu driven - No cryptic command codes.
Includes a full sized custom 3 ring binder with a 50+
Page, easy to understand User's Manual.

“Now shipping v1.04"
Please enclose check or money order for $39.95

plus shipping and send to:
U.S. Mail / P.O. Box / Canada $5.00
UPS Foreign $10.00

Mad Man Software

1400 East College Drive
2nd Day (U.S.) $6.50 (AK,HI) $10.50
Next Day (U.S.) $15.50 (AK,HI) $20.50

Cheyenne, Wy.82007
632-1178 information

Circle Reader Service Number 159

“Gazette Gallery,” where each month we present the
very best in original 64 and 128 artwork.

So don’t waste another moment. Subscribe to-
day to COMPUTE’s Gazette Disk and get 12 issues
for only $49.95. You save almost 60% off the single-
issue price. Clip or photocopy and mail completed
coupon today.

Individual issues of the disk are available for
$9.95 (plus $2.00 shipping and handling) by writing
to COMPUTE, 324 West Wendover Avenue, Suite
200, Greensboro, North Carolina 27408.

YES! Start my one-year subscription
to COMPUTE’s Gazette Disk right away
for only $49.95.*

0 Payment enclosed (check or money order)

OCharge OMasterCard O Visa
Exp. Date
Sianature (Required)
Name
Address
City
State/ ZIP/
Province Postal Code

Mail to COMPUTE's Gazette Disk, P.O. Box 3250, Harlan, IA 51593-2430

* Residents of NC and NY, please add appropriate sales tax for your area. Canadian
HPGAB

|
|
!
|
|
|
|
|
|
|
| Acct. No.
|
|
|
|
|
|
|
1
|
|

orders, add 7% goods and services tax.

Don’t count on

when you boot

G-14

PD games.

PD PICKS

(a ee ee el

Steve Vander Ark

SLEEP STEALERS

I'm still on a games kick this
month. As you might recall,
last month | was trying to beat
Super Rockfall and Zix. Now,
I've added two more great
new games to my “sleep-steal-
er” disk. Both of these games
are excellent. They're the kind
that keep me staring at the
monitor until my eyes start to
creak. These aren't joystick
breakers; they're strategy
games. They're the kind that
keep you up until 3:00 a.m.

Now, here’s this month's
pair of winning programs. For
those of you on CompuServe,
I'll include the game's file-
name whenever | can find it.
Whether you get these games
on Q-Link, GEnie, Compu-
Serve, or Gazette Disk, don't
count on getting too much
sleep once you start to play.

Rebellion V2.

Q-Link filename: REBELLION
V2. Uploaded by Ravenweird.
GEnie file number: 12546.

This game bears a passing
resemblance to Risk, the
board game in which you try
to conquer the world using lit-
tle colored markers for armies.
You are given a random map
made up of hexagonal territo-
ries which come with villages
and acontingent of soldiers loy-
al to the king. Of course, as
you might guess from the
name of the program, you ar-
en't loyal to the king at all. In
fact, your goal is to wipe out
the royal troops entirely and
proclaim yourself king.

The game consists of your
maneuvering your armies, chal-
lenging neighboring territo-
ries, and trying to hoist your
own flag over the territorities.
In the process, you can hire
more soldiers and build tow-
ers and villages to extend
your influence.

That by itself would make
for a pretty neat game. But Re-
bellion also offers tidbits of col-
or and style that make all this

COMPUTE DECEMBER 1993

simulated mayhem a lot of fun.
Every time there's a battle, for
example, a window appears
showing two or more little
guys armed with swords who
proceed to duke it out. This ac-
tion is accompanied by
thunks and clangs and martial
music. There are no blood or
explosions (this is a strategy
game, remember?), and you re-
ally can't do anything to help
your side win. But these kinds
of frills add a lot to the overall
enjoyment of Rebellion.

There are other nifty touch-
es. You can customize the
game extensively at the start.
You can edit the map and se-
lect your own color and coat
of arms, and they then appear
on your battle flags and in
your conquered territories.

You can permit random
events to occur, such as fire de-
stroying one of your villages or
your troops capturing some out-
laws and gaining some extra
gold. You can also (and |
need options like this) make
the king's men into real wimps
or give the king extra advan-
ages such as a brother to
charge to his rescue. Rebel-
ion will suit just about any
kind of challenge you want to
set up, and it'll Keep you busy
a long, long time.

If you do happen to tire of
reachery and bloodshed, you
might want to load the other
program for this month, a won-
derful re-creation of an an-
cient but still popular game.

Mah-Jongg by Kurt Tappe.
Q-Link filename: © MAH.
JONGG V2.SDA. Uploaded
by KurtTappe. GEnie file num-
ber: 7584. CompuServe file-
name: MAHJON.BIN. Contrib-
uted by user #73040,504.

According to the nice bit of
historical background Kurt Tap-
pe has included with this
game, people have been ad-
dicted to mah-jongg for thou-
sands of years. Nowin the com-
puter age, the deceptively sim-
ple game is still keeping peo-

ple like me from getting any
work done. This version, for
the 128 in 40-column mode, is
a masterpiece.

In case you're not familiar
with the original board game,
here's a brief idea of what it's
like. You are presented with a
number of little tiles with pic-
tures on them, stacked up in
arandom arrangement, with ex-
tra pieces in the middle. Your
job is to remove matching
tiles from those that are visi-
ble. The trick is that you can
take only tiles that have a free
edge. In other words, you
can't remove those that have
other tiles touching all four
sides. Computer versions of
mah-jongg automatically set
up the tiles in a random ar-
rangement to start you off and
then let you select matching
pairs with a pointer.

Kurt has gone out of his
way to make his mah-jongg
the best around. He has includ-
ed a mouse driver. Since you
have to move the cursor all
over the screen, the game ben-
efits from the mouse’s quick
pointer control. Kurt has also
provided an option that
makes guys like me happy:
the chance to take back
moves and try another tack.
You can even ask the comput-
er to suggest moves for you.

One feature that | don't
dare use is the autoboot crea-
tor, included as a separate util-
ity program. | play mah-jongg
too often as it is without hav-
ing it there every time | start
my system!

You probably won't really
need the documentation
which is available from within
the program, but read it over
anyway to get the historical
goodies on mah-jongg. That's
just one more example of the
level of user friendliness that
you'll find in this game. Kurt
has gone the extra mile to en-
sure that this program be-
comes one of your favorites; it
definitely is one of mine.

PUMP UP

YOUR PRODUCTIVITY!

Harness the potential of your, The Gazette Graphics

Grab B
64 and 128 with these Sr all cieet tregs
powertul programs.

graphics!
Here's what's on it-
Get more work out of your 64 and 128 Se ea REERnE
with these two new disk products from 128 Graphics Compactor,
COMPUTE's Gazette — the 1992
Best of Gazette Utilities, and
the Gazette Graphics Grab

64 Animator, VDC Graphics,
Dissolve 128, Super Slideshow,
128 Animator, 1526 PrintScreen,
Supratechnic, Medium-Resolution

Bag! Graphics, Screen Maker, GAS!64—
The 1992 Best of Special Edition, GAS!128-Special

iliti Edition.
Gazette Utilities ition

Seize control of your operating
system and your world!

Here's what's on it-MetaBASIC 64,
MetaBASIC 128, Quick, Sprint Il,
Ultrafont+, RAMDisk 64, RAMDisk 128,
BASSEM, SciCalc 64, List Formatter,
MegaSqueeze.

ORDER
THEM
TODAY!

Extend Your Computer Power With This Powerful Software!

__Check or Money Order _ MasterCard _ VISA
| want to pump up my productivity! Please send me the

@ disks checked below at $11.95 each. Credit Card No. Exp. Date
__The 1992 Best of Gazette Utiities Siralure Teaaredy
—— The Gazette Graphics Grab Bag Daytime Telephone No.
— Subtotal
Name
—— Sales Tax (Residents of NC and NY please add appropriate sales tax for your
area. Canadian orders, add 7% goods and services tax.) Address
—— Shipping and Handling ($2.00 U.S. and Canada, $3.00 surface mail, $5.00 City

airmail per disk.)
State/Province ZIP/Postal Code

—— Total Enclosed

Mail this coupon to COMPUTE's 1991 Utilities, 324 West Wendover Ave., Ste. 200,
MasterCard and VISA accepted on orders with subtotal over $20. Greensboro, fc 27408, werave 00, l

SPECIAL ONE TIME, LOW PRICE OFFER!

Subscribe now to COMPUTE's New Gazette Disk and get 12 monthly
disks for only $29.95. That's a savings of $20 (40%) off the regular
price of $49.95.

Each month, COMPUTE'’s new improved Gazette Disk brings you
indispensable features that make it a full-service tool for Commodore
users. On every disk you'll get...

e Up to nine programs with accompanying documentation

® Two Public Domain programs with documentation

« Feature articles on Commodore hardware, software and
programming which you can either read on disk or print out

e User group updates
e On disk advertisements of Commodore products and services
e Gazette’s entertaining and informative columns:

64/128 View e Beginner Basic « Machine Language e D'Iversions

© PD Picks « GEOS e Programmers’s Page « Feedback e Reviews
COMPUTE’s Gazette Disk...the most timely and practical monthly
resource available to Commodore users.

COMPUTE’s sisic™™*

I LJ YES! Please enter my subscription to COMPUTE’s New Gazette

| Disk for one year (12 disks) at just $29.95. I'm saving $20 (40%) off the

J regular price of $49.95. |

| Name I

| Address |

fl City State Zip I

| (J Payment Enclosed Bill me 0 visa () MasterCard | Su bseri be

| Acct # Exp. I '

I Signature | Today 7

I Credit card holders Mell tora |

I call toll free PO. Box 3244 I
1-800-727-6937 Harlan, IA 51593-2424

| Allow 6 - 8 weeks for delivery of first disk. Residents of North Carolina and New York, please add appropriate sales tax for your area. I

| Canadian orders send $42.75. Foreign orders send $39.95. Payment acceptable in U. S. funds only. HRDBS5 |

BEGINNER BASIC

Larry Cotton

THREE
CHALLENGES

Merry Christmas, happy Cha-
nukah, or season's greetings.
Here are a few BASIC program-
ming challenges that I'd like
or you to consider while Ga-
zette makes the change from
paper to disk. Give them
some thought and see if you
can program a solution ot two.
Last weekend my seven-year-
old second cousin Hunter
showed me a game which |
had never seen before. It's
called Sets. In case you're not
amiliar with this game, I'll tell
you about it. It's a fiendishly
simple game in which a deck
of special cards is shuffled,
and 12 cards are displayed
face up ina 3 by 4 grid. Each
player takes turns identifying
and collecting sets of three
cards. More cards are added
to the grid to replace the sets
as they're removed.

A set is defined as any
three cards which share cer-
tain characteristics. For in-
stance, one solid red dia-
mond, one solid blue dia-
mond, and one solid green
diamond would qualify as a
set. Similarly, one shaded
green oval, two shaded green
ovals, and three shaded
green ovals would make a set.
Less easy to spot are sets
which might consist of one sol-
id red diamond, two green
shaded diamonds, and three
blue open diamonds.

If only two cards in a group
share a certain characteristic,
the group isn’t a set. This isn’t
a set: two shaded green ovals,
two solid green diamonds,
and two open red squigglies.
(One way to legalize that set
would be for the green dia-
monds to be blue.) The varia-
bles in a set are color (red,
green, or blue), quantity (one,
two, or three shapes), fill
(open, shaded, or solid), and
the shape itself (squiggly,

oval, or diamond).

Needless to say, Hunter
beat me soundly most of the
time. So what's the program-
ming challenge that | men-
tioned earlier?

As you sit around the
house on these long cool
nights, see it you can write a
computer program that plays
a Sets-like game. (Is there al-
ready one out there?) Ideally,
the computer would randomly
present the 12 cards, the play-
er would attempt to identify a
set, and the computer would
decide whether or not the set

is legal.
An alternative could be that
the computer presents

groups of three cards, the play-
er decides whether the group
is a legal set or not, and the
computer checks the answer.
Either way, | would like to see
how you would begin program-
ming a game such as this in
BASIC.

Feel free to come up with
your own variation. Send me
the game (finished or not) in
care of COMPUTE's Gazette,
324 West Wendover Avenue,
Suite 200, Greensboro, North
Carolina 27408. I'll try to deci-
pher your programming and
present some of your best tech-
niques in a future column.
Meanwhile, I'll attempt to
come up with a version of my
own, and we can compare pro-
gramming strategies later.

Here's another challenge
for you: Write a short BASIC
program that will play the West-
minster chimes. These are the
familiar chimes heard in large
clocks that ring on the quarter-
hour. It’s not sufficient to let
the SID chip just play the
notes; rather, SID should real-
ly chime! In other words, this
program should use the ring
mode feature of the SID chip
to add the harmonics neces-
sary to sound like real bells.
Even better would be a clock
which chimes four notes on
the quarter-hour, eight on the

half-hour, and so on until the
hour. (Hint: try poking a 21 to
one of SID's control registers.)

Incidentally, some other
well-known chimes are Win-
chester (not actually played in
that city), Canterbury (not ac-
tually played at Canterbury Ca-
thedral), Trinity, Guildford, St.
Michaels, Cairo, and Notre
Dame. As a bonus, you could
include them all with a menu
screen. Hit T for Trinity, G for
Guildford, and so on!

OK, here's the third chal-
lenge, one which fits the real
spirit of “Beginner BASIC.”
Send me a short BASIC pro-
gram that rounds numbers.
One might let a user enter any
number that included
unlimited decimal places. The
user could then choose the
number of decimal places to
round off to.

| would also like to see any
programs which round money
calculations to two places, pref-
erably with the ability to line up
decimals vertically. I'll look at
any program that computes av-
erages, golf scores, lottery win-
nings, calories, grades, or what-
ever else you want to count!

Way back in the August
1988 issue of COMPUTE!'s Ga-
zette, | showed how to use the
following general formula to
round numbers.

R = INT(N*107D+.5)/107D

R is the rounded number that
you seek, N is the number to
round, and D is the number
of decimal places you'd like
to round off to. The up-arrow
key (next to Restore) raises a
number to a power.

If D were 2, 10 would be
raised to the second power,
or squared. Feel free to adapt
this formula to any new pro-
gram you're inspired to write.
And keep those cards and let-
ters (and programs) coming.
Be sure to include your
name and address with all
submissions. a

DECEMBER 1994 COMPUTE

Here are three
programming
Challenges to keep
you busy during
the holiday season.

G17

With simple media

manipulation
programs, anyone
can alter a
digitally recorded

event into a work of

G-18

D'IVERSIONS

Fred D'Ignazio

| DON’T THINK
THIS IS CLEVELAND
EITHER, TOTO!

In Rising Sun, the movie
based on Michael Crichton's
best-selling novel, actor
Wesley Snipes, playing a po-
lice detective, watches a com-
puter screen in wonder. He
sees his head and the head of
his partner (played by Sean
Connery) cut from their own
bodies and pasted onto each
other's shoulders. Following
this demonstration, Snipes is
cautioned by a computer tech-
nician not to trust videotaped
events as evidence of some-
thing that has actually taken
place in the real world.

Moviemakers have used
special effects for years to
make us believe the events
that we see on the silver
screen, or at least to make
them seem believable, Of
course, it usually takes a hefty
budget and a team of artists to
create this video magic.

This kind of virtual reality—
the appearance of being real
without being an accurate re-
flection of physical reality—is
rapidly becoming easier and
less expensive to create. This
is because all media, includ-
ing television, photography,
music, and telephony, are swift-
ly being converted to a digital
format. With simple media ma-
nipulation programs, any art-
ist, production editor, musi-
cian—or kid!—can alter a dig-
itally recorded event into some-
thing fictional which neverthe-
less looks and sounds as real
as the original. With the digital
format there is no “generation
loss” that makes copies look
inferior or doctored.

Many of us, outfitted with
power gloves, stereo comput-
er goggles, bodysuits, and ul-
tra-high-speed computers, ea-
gerly await the dawn of virtual
reality. But a simpler form of vir-

COMPUTE DECEMBER 1993

tual reality has already
dawned, and you are liable to
stumble across it in the check-
out lines of your local supermar-
ket or convenience store.

“WORLD RECORD: MOTHER
GIVES BIRTH TO 15 BABIES
AT SAME TIME!"

“CLINTON MEETS JFK—FOR-
MER PRESIDENT ADVISES
CLINTON ON HOW TO SAVE
HIS PRESIDENCY"

“ELVIS SIGHTED AT AERO-
BICS CLASS IN DUBUQUE;
POLICE VERIFY SIGHTING”

“MAN-EATING SHARK DE-
VOURS OIL TANKER—4000
SAILORS LOST IN SINGLE
BITE”

“MAN MARRIES THREE-INCH-
TALL BRIDE: ‘SHE'S THE
WOMAN OF MY DREAMS'”

“TREE GROWS FROM BOY'S
MOUTH—LAD REMEMBERS
SWALLOWING ACORN ON
FOURTH BIRTHDAY”

Thousands of stories similar
to these appear each week in
America's supermarket tab-
loids. Many of them are accom-
panied by photographs depict-
ing the event they describe.
You might see the groom hold-
ing his diminutive bride in the
palm of his hand or an oak
tree growing out of a boy's
mouth. The photographs are
used to “prove” that the fan-
tastic events did occur and
were not concocted by an ed-
itor with a bizarre imagination.

Don't count on it. These pho-
tos can be quickly and easily
created by digitally manipulat-
ing the original photographs
on computer workstations.

For three years | worked
with Sharon Goth-Tew in the
Teacher Explorer Center, a mul-
timedia demonstration center
sponsored by the State of Mich-
igan to show educators some

of the exciting advances in in-
structional technology.
Sharon and | delighted in show-
ing the headlines from grocery
story newspapers to educa-
tors and then demonstrating
how the pictures could be dig-
itally created.

For example, Sharon had a
digitized image of her son Ty-
ler which she called up on the
big four-foot Sony monitor at
the front of the room. She load-
ed Tyler's image into a paint
program and proceeded to
shrink him, stretch him, invert
him, rotate him, and colorize
him. She showed how she
could digitally add an earring
on Tyler's left ear, give him a
case of the measles, or
change the color of his hair or
his eyes. She also showed
how she could shrink his en-
tire face and place it inside his
mouth or stretch his mouth so
that it could cover the TV
screen, Since Tyler would not
be pleased with the things his
mom was doing to his face,
Sharon always asked the teach-
ers to keep her tricks secret.

Each morning we greeted a
fresh crop of educators from
Michigan and around the coun-
try. Our first warm-up activity
was to divide the educators in-
to five teams and to capture
their images digitally on their
workstation computer. We
used a video camera connect-
ed to a computer frame-grab-
ber board. Since we were on
a network, as soon as the im-
ages were captured, we dis-
played them in an instant com-
puterized slide show on the
classroom TV.

Then the fun began! The
class giggled, shrieked, and
roared as we took men's
heads and placed them on fe-
male bodies and as we add-
ed clip art backgrounds and
placed teachers on the moon,
at the bottom of the ocean, or
in a fifteenth-century castle.

We changed hairstyles, add-
ed hair to bald heads, and

drew clown hats. When we
replicated arms, legs, and
other body parts, we at-
tached them to people’s bod-
ies like cut-out paper dolls.
We then added mock head-
ines and published the text
and pictures on the class-
room printer to create our
own imitation tabloids.

One morning, Deb Small,
he number two technology
Official inthe Michigan Depart-
ment of Education, came to
he center to see what we
were up to. We told Deb we
were digital magicians who
had the ability to transport
her to star in her favorite mov-
ie, After looking through our
collection of laser discs, Deb
decided that she wanted to
swap places with Judy Gar-
land and become Dorothy in

The Wizard of Oz.

Sharon did all the digital
surgery while Deb selected
images. First they captured
keyframes from the laser
disc. These formed a story-
board of the movie. Next,
they digitized a picture of
Deb as she sat in front of one
of the video cameras in our
laboratory.

Sharon cut the head off
Deb's picture and pasted it
onto Dorothy's shoulders in
The Wizard of Oz, By just cut-
ting the oval of Deb's face
and scaling it appropriately
for each picture, Sharon was
able to fit Deb’s face onto
Dorothy's without mussing a
single one of Dorothy's
hairs. Then Sharon went into
fat bits mode and smoothed
the pixels around the oval to

make the transition from
Deb's face to Dorothy's face
subtle and natural.

To complete the effect,
Sharon and Deb composed
a digital slide show that in-
cluded all the photographs
from the storyboard. They
added the song “Some-
where Over the Rainbow”
from the movie as back-
ground music and dialogue
such as “Toto! | don’t think
we're in Cleveland any-
more!” (Deb and her family
come from Cleveland.)

They copied the comput-
er slide show onto videotape
and created a customized la-
bel. Deb carried the finished
product out of the center af-
ter only a morning's worth of
work. Deb was so pleased
with the video that she sent

it to her mom and dad back
in Ohio!

So, the next time you hear
a sound, see a photograph,
watch a news documentary,
or listen to someone's voice,
ask yourself, Is it real or is it
virtual reality? We live in a
society saturated by electron-
ic media.

In the past this media accu-
rately reflected the real
world—or at least we could
tell when it didn’t. But the dig-
ital revolution is changing
that. Almost everything visible
through media windows may
soon be something pasted to-
gether with digital smoke and
mirrors. What effect will this
have on the facts? What ef-
fect will it have on our percep-
tion of reality? Most important,
will we care? a

“YOUR FREE
CATALOG
KNOCKED MY
SOCKS OFF”

We get that sort of comment all
the time. People are impressed

that our free Consumer

Information Catalog lists so

many free and low-cost

government booklets. There are
more than 200 in all, containing
a wealth of valuable information.

Our free Catalog will very likely
impress you, too. But first you
have to get it. Just send your
name and address to:

Consumer Information Center

Department KO
Pueblo,
Colorado

A public service of this publication and
the Consumer Information Center of the
U. S. General Services Administration

supplies last.

The classic best-selling
Commodore 64 reference
guide. Mapping the Com-
modore 64 and 64C is a
comprehensive memory
guide for beginning and advanced programmers.

MAPPING
THE

Commodore

64&64C

To order your copy send $18.95 plus $2.50 for shipping and handling
(U.S., $4 to Canada and $6 other) to COMPUTE Books, c/o CCC, 2500
McClellan Ave. Pennsauken, NJ 08109. (Residents of NC, NJ, and NY
please add appropriate tax; Canadian orders add 7% Goods and Servic-
es Tax.) All orders must be paid in U.S. funds drawn on a U.S. bank.
Orders will be shipped via UPS Ground Service. Offer good while

DECEMBER 1993 COMPUTE

G-19

G-20

PROGRAMMER’S PAGE

David Pankhurst

FAB FOUR

All the tips this month come
from the computer of David
Pankhurst. Look for more infor-
mation about him at the end of
this article.

Line Delete

In October's “Feedback” col-
umn, Roger Howard of Los An-
geles asked about a program
to delete a number of lines
from a program. Here's a pro-
gram to delete a number of
lines from a BASIC program
just by typing in five lines. It's
handy when you want to
erase lines but don’t want to
load in a complete system
(like MetaBASIC). Feel free to
use different line numbers.
Just be sure to change the ref-
erences in line 3 and line 4.

1 INPUT“WHAT ARE LOW,
HIGH LINE NOS.”;A,B:
Y=PEEK(43)+256*PEEK
(44)

2 X=PEEK(Y)+256*PEEK
(Y+1); L=PEEK(Y+2)+
256*PEEK(Y+3): IFX=
0 THEN END

3 IFL<ATHENY=X:GOTO2

4 IFL<=BTHEN
PRINT [CLRI[3 DOWN]”L“:
[DOWN]Y="Y": B="B":
GOTO2:[HOME]”

5 POKE198,2:POKE631 13:
POKE632,13:END

Run Counter

This trick is a one-liner to em-
bed a counter in a program. |
find this line is useful to note
the version of programs I’m
developing. Every time | run
the program, it passes this
line, incrementing the count-
er. Later versions will have
higher numbers.

The first line shows how it
looks in BASIC; the second
shows how you can type it so
it will fit on one line. The sec-
ond version uses the Commo-
dore technique of two-letter
abbreviations. This consists
of entering the first letter and

COMPUTE DECEMBER 1993

holding down the Shift key
while entering the second.

1 R$='0000": FORI=7TO
10: POKEI+PEEK(61)+256*PEEK
(62)-20,ASC(MIDS(STRS(VAL
(RS)+1+1E8),1,1)):NEXT

1 r$="'0000":f0i=7to10:
pOi+pE(61)+256*pE(62)-20,
aS(ml(stR(vA(r$)+1+1e8),
i,1)):nE

It’s a Call 4 U

This routine takes a telephone
number and gives letter com-
binations that can be used for
it (such as 555-JOJO instead
of 555-5656). What makes
this one worth typing in is
that it does all combinations,
not just a random sampling. Al-
so, it’s only five lines, which is
enough for something as trivi-
al as this. You can enter any
nonnumeric characters you
want, and they will be includ-
ed in the output. Note that
line 50 has all the letters in
the alphabet except Q and Z.

10 INPUT“NUMBER”;AS:B=
LEN(A$):DIM C(B):
FORD= 1T0B:C(D)=0:
NEXT: C(B)=1:PRINT,,,

20 E=B:PRINT,

30 C(E)=C(E)+1:1F C(E)>2
THEN C(E)=0: E=E-1: ON
SGN(E) GOTO 30:END

40 FORD=1TOB:F$=MID$
(AS,D,1):G=3* VAL(F$)-5:
IF G<1 THEN PRINT
F$;: C(D)=5:NEXT: GOTO
20

50 G=G+C(D):PRINT MIDS
(“ABCDEFGHIJKLMNO
PRSTUVWXY”,G, 1);:NEXT:
GOTO 20

Master This

This little program provides a
quick version of the popular
guessing game called Master-
mind. Here, you guess at the
digits in a four-digit number
(digits 1-6), and the results
are displayed with B (black)
for the number of digits that
are correct and in the correct

position and W (white) for dig-
its that are correct but in the
wrong position.

If you want to try different
variations, adjust line 10. L is
the number of digits in the puz-
zle (4), and R is the range
(from 1 to 6 in this case).

10 L=4:R=6:FOR I=1TOL:
D(I)=INT(RND(0)*R+1):
D=D*10+D(I): NEXT:Z=1:
G0T030

20 Z=2+1: PRINTB="B"W="W

30 PRINT“GUESS="Z:INPUT X:
PRINT“ [UP]”,: FOR I=LTO1
STEP-1: Y=INT(X/10): G(I)=
X-Y*10:X=Y

40 NEXT:W=0:B=0: FOR |=1TOL:
F(1)=D(1): IF G(1)=F(I)THEN
F(I}=0: G(I)=-1; B=B+1

50 NEXT: FOR J=1TOL: FOR
l=1TOL: IF F(J)}=G(I) THEN
F(J)=0:G(I)=-1: W=W+1

60 NEXT:NEXT:IF BcL THEN 20

70 PRINT“CORRECT!”:END

Editor's note: For many years
Randy Thompson has com-
piled the material for “Program-
mer’s Page,” and he’s done
an outstanding job. His work
load as a programmer for a
major software firm, however,
has forced him to give up this
column. We wish Randy well
and want to convey to him
our thanks for his many great
programming tips and ideas.

Although Gazeite is chang-
ing, “Programmer's Page”
will continue to be a vital part
of it. David Pankhurst, a talent-
ed programmer from Montre-
al, Canada, provided the tips
for this issue, and he will be
compiling the column from
now on. Look for more informa-
tion about David next month.

Remember, Gazette still
wants your programming tips
and hints. We pay $25-$50
for each tip that we publish.
Send your tips to Program-
mer's Page, COMPUTE’s Ga-
Zette, 324 West Wendover Av-
enue, Suite 200, Greensboro,
North Carolina 27408. a

Everything’s included!
Features, games, reviews,
education/home applications,
programming, bugswatter,
feedback, and columns!

A superb interface includes pull-
down menus, help screens, and
keyboard, joystick, or mouse con-
trol. Features include super-fast
searching and sorting capabilities.
An options screen allows you to
choose text colors, drive number,
and input device. And there’s full
documentation on disk.

Choose from three modes of opera-
tion—browse for quick scanning,
view for detailed information and
descriptions, and edit for adding
items from upcoming issues—and
print to any printer. There’s even a
turbo-load option for maximum
disk-access speed.

(MasterCard and Visa accepted on
orders with subtotal over $20.)

To order, send $7.95 per disk, the
quantity of disks ordered, check

or money order,* your name and

complete street address:

Gazette Index

324 West Wendover Avenue
Suite 200

Greensboro, NC 27408

"Please add $2 shipping & handling ($5 foreign) for
each disk (residents of NC, NJ, NY please add appli-
cable sales tax; Canadian orders, add 7% goods
and services tax).

All payments must be in U.S. funds. Please allow 4
weeks for delivery.

C64/128 PUBLIC DOMAIN SOFTWARE
REQUEST FREE CATALOG or send $2 for sample disk and catalog (RE-
FUNDABLE). Categories Include education, utilities, games, business,
PRINT SHOP graphics, pre-tested programs and more. Rent for 75¢ or
buy as low as $1.00 per disk side or for 80¢ for 70 or more. $20 order
gets 4 free disks of your choice.

NEXT DAY SHIPPING! SINCE 1986

& CALOKE INDUSTRIES (Dept. GK) —

= PO BOX 18477, RAYTOWN, MO 64133

Circle Reader Service Number 181

DEPENDABLE SERVICE FOR YOUR COMMODORE! _
C-64, 1541, C-128, or 1571:==FAST TURNAROUND!

$25 .°° bLus parts AUTHORIZED COMMODORE
Send computer* or drive with name, ad- SERVICE CENTER
dress, phone, & describe problem. We'll ~ ee ee
call with parts estimate, then repair and 90 DAY WARRANTY
return to you insured by UPS. Payment ‘ON ALL REPAIRS
can be COD or VISA, M/C. Minimum
charge, estimate only is $20. * Include power supply.
503 East St. Dept. C
Pittsfield, MA 01201

TYCOM Inc. (413) 442-9771

Circle Reader Service Number 242

DENNY’S QUEST
Arcade/adventure game for the C64/C128 in C64 mode.
Explore caves, deserts, cemeteries, secret areas, etc.
Send $24.99 check or money order (includes shipping) to:
Sunrise Software
439 Park Lane
Massapequa Park, NY 11762

REU users: Battery Back any 17xx, or GEORAM, with the BBU. Use with GEOS (V1.3 up),
RAMDOS or other programs that use REUs. Great for BBS. No heavy power supply needed.
GEOS users: BBGRam, Battery backed RAM for GEOS 2.0. A fast, reliable altemative to
mechanical drives. Supports all drive types, multiple partitions and alternate DESKTOPs.

PERFORMANCE PERIPHERALS, Inc.

5 Upper Loudon Road, Loudonville, NY 12211.

US orders, literature: 800-925-9774. Tech suppor, orders, FAX: 518-436-0485.
BBU $59, BBGRam 512K $89, BBGRam 1M$119, BBGRam 2M $159.
US S&H $6. US COD $4. Canada & Mexico S&H $10. Other countries S&H $19.
kJ 30 day money back guarantee. 90 day warrantee. Master Card / VISA welcome.

Circle Reader Service Number 153

Upgrada your Commodore systam

Refurbished Hardware New APROTEK modems
monirors DRIVES B7Amiga-2400 Baud— $119
WOI- $219 4t- F 99 © Zonvert-A-Com=$45
WO2- $239 154ic- F109 rassorie:
1WO2- F259 1541-ll-$139 2 JIFFYDOS SYSTEM" —~
18O2D-F279 1STI- F169 9 JFEYDOS 64 8D "SYSTEM"
1302—- $299 15e1- Siro 1 128 kencl-365 64 kernal
1902 $319 1GBISFOF39 166! JIFEYDOS BRIVE ROW
1084—- $329 1530 Ontasette-F39 Ramlink & Ramecard-llCOk) & Battery $36
10845 $349 Buseard~ll- $59 Raralink base-$239 ameard=i- $10
BOOKS$18-15 tarfaces~ $35~F75 RL Battery-$29 IMag-369 — dMeg-F219
SOFT $5-20 Sizk Rarn ExpanderSi79 NEM) DRIVES! FOLOGO-3319 = FOAGOR-$419
Ak Aor anigthiag wes ange firme AF RTClock-+325 ED disksc109- $105
J.P. PBM PRODUCTS BY MAIL Send CRN fun USA 1Sxexchange

DOWNSVIEW, ONTARIC, M3L 180
Allow 4-6 week: for delivery.
Cataloge disk on 64 forrnat Fe

An ultimate GEOS
system Is great if you
Can afford it. Here's
what you really need.

G-22

GEOS

Steve Vander Ark

ULTIMATE GEOS
ON A BUDGET

About a year ago in this col-
umn, | described what | con-
sidered to be the ultimate
GEOS setup. The total price
was several thousand dollars.
Later, | received letters from
people who asked about a sys-
tem for regular folks. Fancy
equipment is wonderful, but is
it necessary? So here's anoth-
er, more realistic, list of what
| consider to be the best choic-
es for a GEOS system.

Computer and monitor. |
recommend a 128 for its 80-
column screen. The ease of
use in 80 columns, especially
with geoWrite, is well worth the
extra money. That means you
need an 80-column monitor,
too, but you can get by with
monochrome. I'd also recom-
mend a small color TV to dis-
play your 40-column screen. |
speak from experience here;
| have that exact setup.

Drives. To really use GEOS
effectively, you need at least
two drives. I'm going to go the
extra mile and say that you
have to have a RAM expan-
sion unit for one of them. I'll
talk a bit more about RAM in
a moment. For now, let's as-
sume at least a 512K REU
along with your 1541 or 1571
real drive.

Many users also add a
1581 drive. Since I've never
owned one, | can't say much
about it except that it would
be nice. Some other users
have a hard drive on their sys-
tems. If you can afford one, go
for it! | can't afford one of
those, either, but from every-
thing I've heard and read, the
hard drive of choice is one
from Creative Micro Designs
(CMD). If it comes down to a
choice, though, definitely get
a RAM device before a hard
drive.

RAM devices. As | have of-
ten said, | consider a RAM de-

COMPUTE DECEMBER 1993

vice to be essential to running
GEOS. It is the single most im-
portant piece of hardware you
can buy. A RAM device is
more important than a second
disk drive, a hard drive, a fan-
cy monitor, or anything else.

| wouldn't hesitate to say
that it's better to run GEOS on
a 64 with a RAM device than
on a 128 without. And while a
1750 or geoRAM may be con-
sidered a minimum level of
RAM, | highly recommend get-
ting RAMLink from CMD. Or-
der it packed with as much
RAM as you can afford, a bat-
tery backup, and (if you feel
like splurging) a Real-Time
Clock. While you're at it, order
a copy of Gateway, even if
you don't plan to run your sys-
tem under it. I'll explain more
about that later.

Input devices. A mouse—
period.

Software. For a file manag-
er, you'll do fine with the desk-
Top that comes with GEOS,
but | recommend Gateway. |
wouldn't want you to be stuck
with RAMLink without Gate-
way to make full use of it.
You'll want Gateway if you
plan to use DualTop or
geoSHELL, too.

By starting with Gateway,
you allow DualTop and
geoSHELL to access native
mode partitions on RAMLink.
What that means is that you
can create a RAM disk without
having to match the size and
structure of another drive
type, such as a 1571 or 1581.
If you stay in Gateway, you
can even use subdirectories,
which are a very convenient
way to organize your files.

You can usually fill your ap-
plication needs with actual
GEOS products: geoPublish,
geoFile, and so on. All GEOS
software is now available
through CMD. There is a mul-
titude of essential public do-
main or shareware programs,
so a subscription to Quantum-
Link or GEnie is also a good

idea. This gives you access to
those file libraries. If you want
suggestions on which public
domain files are good, check
out some of my columns over
the past few years. I'll put a
new list of the best GEOS
downloads in an upcoming col-
umn as well.

There are a number of third-
party products which you
should consider, although the
ones you buy depend on how
you plan to use GEOS. If you
want great printouts from
geoWrite, for example, you
need Perfect Print. Perfect
Print won't help you a whole lot
for desktop publishing with
geoPublish, though.

No matter how you spend
your GEOS time, you'll want
geoWizard and the other utili-
ties on the Collette Utilities
Disk. All of these programs are
available through CMD, which
is now the source for all the of-
ficial GEOS products.

Printer. Get an Epson-com-
patible, and make it a 24-pin.
Oh, | know that you can make
do perfectly well with a 9-pin
printer, but the better printouts
with the 24-pin model make it
worth the extra dollars. Remem-
ber, a lot of your work in
GEOS will be geared toward
some kind of printed docu-
ment. | like the Epson LQ se-
ries myself, but I've heard a lot
of great things about the
Panasonic line as well.

Extras. Do you have any
money left? Besides the Real-
Time Clock | mentioned for
your RAMLink, there are plen-
ty of other ways to spend your
GEOS dollars. If you're a graph-
ics fan, you'll want to pur-
chase geoCanvas (CMD) and
Dave Ferguson's Dweezil
Disks (Quincy Softworks, 9479
East Whitmore Avenue,
Hughson, California 95326-
9745). The games and utilities
on the RUN magazine GEOS
Companion and Power Pack
disks are wonderful, and CMD.
now sells them as well. ©

COMMODORE 64/128

PUBLIC DOMAIN
SHAREWARE PROGRAMS

CALL OR WRITE FOR FREE
DESCRIPTIVE CATALOG OF
COMMODORE 64/128 PUBLIC
DOMAIN & SHAREWARE SOFT-
WARE OR SEND $2.00 FOR DE-

SCRIPTIVE CATALOG AND
SAMPLE DISK. ADULT SOFT-
WARE LISTING AVAILABLE TO
THOSE OF LEGAL ADULT AGE.

DISKS O'PLENTY INC.
8362 PINES BLVD., SUITE 270
PEMBROKE PINES, FL 33024

(305) 963-7750

Circle Reader Service Number 239

143 WILD WESTERN PRINT SHOP DESIGNS,
90 GRAPHICS, 42 BORDERS & 1] FONTS.
Gunfighters, Cowboys, Indians, Horses, Cattle,
Bull Riders, Bronds, Wagons, Saddles, Tack,
Cutting, Indion Symbols, Wagon Wheels, more.
HAVE A WESTERN HOLIDAY PARTY!

$24.95 +S/H $4.00in US. WAres. $1.95 tax
PLUS S/H APO, FPO, AK, HI $6.00 @ UK $12.00
@ AUSTRALIA $1600 @ CANADA $5.00 @
@ PAYMENT IN USA FUNDS @

SPECIFY C64 or IBM 5.25 or 3.5 Disk
CALL NOW 509-276-6928 FREE info.

HORSE FEATHERS GRAPHICS
N. 27310 Short Rd., Deer Park, WA 99006

Circle Reader Service Number 234

WHEN YOU

CAN'T BREATHE,

NOTHING ELSE
MATTERS,

Help the
American Lung Association
fight lung disease.

AMERICAN
LUNG
ASSOCIATION.

oatributed by the publisher as a public service

Space e«

DIGITIZE PHOTOS ON DMP PRINTER!
°C64 Scan-On-Printer System: 1-7 "dot" sampling covers stamp to page-
size photos - ENLARGE! REDUCE! Position on Page!

Full "Exposure" and "Contrast" control! "DARKLESS DARKROOM!"
*Make "STAMPS" (w/perfs!) to 8" x 9.6" Hard Copy - captioned!
Triple-Pass Printing blends dots on Full-Feature printers!
*Convert to DOODLE! Transport to GEOS - FGM - other Systems!
*Fiber-optic Link Fits moving print heads - USER port control!
*Low Cost ($69.95 up)! DemoDisk: $5; Samples + Info: LONG SASE

KALTEK - ADJUNTAS, PUERTO RICO 00601-0971

Circle Reader Service Number 124

Fast Action Arcade Style Game
for the Commodore 64/128+1541

$24 95 plus $3 Shipping and
e Handling in the U.S.A.
S/H in Canada $5 and $10 for all others.

— American Currency Only —

Pet cust lereStorm Software.
Order to: Box 1086, Sidney, MT 59270

Circle Reader Service Number 236

COMPUTER REPAIR. <ss2

C-64: $40.00 1541:$54.95 64€: $50.00
1541-Il: $64.95 C128: $64.95 €4128D: $74.95
1581: $64.95 ETC...
WE ALSO REPAIR IBM Clones, Sega, Genesis, Nintendo
For more info cal: BEAR TECHNOLOGIES

Computer Sales. Service & Re}

er) 1005 McKean Street, Philiadelphia, Pri9140 erin]
215-336-5295 :

1-800-755-5295

Circle Reader Service Number 152

THE WINGS OF CIRC:
A TALE OF NGA, ui CIRSE
C-64 or C-128 in 64 mode
ARCADE/ROLE PLAYING GAME
Assume the role of Circe and Pegasus!
Battle wizards and dragons!
$19.95 Check or Money Order
CREATIVE PIXELS LTO.
P.O. BOX 592, LIBRARY, PA 15129

Circle Reader Service Number 238

Recorp Fier | ‘Record Keeper =202 characters per record. Disk record capacity

=570; 1571=745. ** Record Printout | or 2 columns. ***Mail
FOR BUSINESS OR | 12e1 Printout 1, 2, or 3 columns. NO SET-UP-BOOK/MANUAL
PERSONAL USE. NEEDED BUILT-IN INSTRUCTIONS-ALL YOU DO IS TYPE. Write-
Our easy to use Q Printer | Read-Edit-List-Print-Delete; Fast Search by 4 methodv6 types +
File Maker lets you enter | ‘Unique” Search searches and/or print from any set of unique letters in
your own printer's code or | record. CORRECTION Routine restores filev/limited power safeguard.
Use as is with an Okmate | PRINTOUT BY DATA FROM ANY OF 9 FIELDS. FIELD/CHARAC-
20 or Okimate 180 TER SIZE; Name/32 Address/32 City/25 State/2
Standard or Italic prt. Phone #/12 Remark 1/30 Remark 2/30 total 202 Ct
Screen for Color or Black and White. 64/128 ONLY!
PRISES NOTHING HIDES FROM RFI - RELAX - LET RFI DO THE WORK

NTEREAS FOR YOU! BUILD A LIBRARY OF LIST DISKS WITH RFI.

SOFTWARE Cost = $39.95 + $4 S/H USA; Canada and Mexico + $6 S/H; Overseas

5, | + $10 S/H. Check or Money Order Only! 2 to 5 weeks delivery.
7123

Three ways to
Change the flow of a
machine language
program are through
branches, jumps,
and subroutine calls.

G-24

MACHINE LANGUAGE

Jim Butterfield

BRANCHES
AND JUMPS

A machine language program
executes instructions sequen-
tially. Three ways to change
this flow are branches, jumps,
and subroutine calls.

Branch instructions have a
limited reach, jumping forward
or backward up to 128 bytes
or so. Branch instructions are
conditional, which means the
branch takes place only when
certain conditions are met.

The jump instruction (UMP)
can take you to any address
in memory (absolute address-
ing). It's unconditional; the
jump always takes you there.

The jump-subroutine instruc-
tion (JSR) also uses absolute
addressing. A link address
will be left on the stack. When
the subroutine has done its
job, it can come back with a Re-
turn (RTS) command.

The eight branch instruc-
tions can be classified by
what they test. Branch instruc-
tions test flags left when pre-
vious instructions were execut-
ed. There are four flags.

The Z (zero) flag is affected
whenever a register (A, X, or
Y) has been modified or after
comparisons have been
made. If a register ends with
0 as its contents, the Z flag
switches on; with something
other than 0, the Z flag is
cleared. After a comparison,
the Z flag is turned on if an
equality is found. Branch-
equal (BEQ) will make the
branch if the Z flag is on.
Branch-not-equal (BNE) will
branch if the Z flag is off.

The N (negative) flag is af-
fected whenever a register (A,
X, or Y) has been modified or
after comparisons have been
made. The N flag will match
the highest bit of the modified
register. After a comparison in-
struction, the N flag is affect-
ed, but its meaning is com-
plex. So it is seldom used in

COMPUTE DECEMBER 1993

this way. Branch-minus (BMI)
will make the branch if the Z
flag is found to be on. Branch-
plus (BPL) will branch if the Z
flag is found to be off. Keep in
mind that the highest bit of a
byte is sometimes thought of
as the sign bit. When the bit is
on, the byte is negative.

The C (carry) flag is affect-
ed by arithmetic or shift instruc-
tions and after comparisons.
The arithmetic and shift oper-
ations use this flag in its usual
carry sense, meaning a bit
has flowed out of the byte
that's being manipulated. Af-
ter a comparison instruction,
the C flag is turned on if the reg-
ister contains an equal or great-
er unsigned value. Branch-car-
ry-set (BCS) branches if the C
flag is on. Branch-carry-clear
(BCC) branches if it is off.

The V (overflow) flag is af-
fected by arithmetic instruc-
tions, add-with-carry (ADC),
and subtract (SBC). Branch-
overflow-set (BVS) and branch-
overflow-clear (BVC) are the re-
lated instructions.

Let's write a short program
to print Xa number of times on
a screen row. BASIC will poke
the desired number into ad-
dress $2100 (decimal 8448),
and then put it into the X reg-
ister, our counter. Here's the
code, starting at address hex-
adecimal 2000.

2000 LDX $2100

The load X instruction chang-
es a register; so the Z and N
flags will be affected. We
don't care, however, so we'll ig-
nore the flags for the moment.
Next, load A with hexadeci-
mal 58, the ASCII value for xX.

2003 LDA #$58

Again, Z and N are affected.
Z will be off (nonzero value),
and flag N will be off (high bit
of A is off). Instructions BEQ
and BMI wouldn't branch if
we used them at this point.

BNE or BPL would branch,
but we don't use them yet.

2005 CPX #$00
2007 BEQ $200F

The compare X instruction
will set up the Z flag. If the val-
ue in X is equal to 0, BEQ will
cause the program to hop
ahead. Why? Because no X's
are to be printed.

The code for the above
BEQ instruction will be two
bytes $FO and 06, FO means
BEQ, and 06 means skip six
bytes if the branch is taken.

2009 JSR SFFD2
200€ DEX
200D BNE $2009

Our loop jumps to the print
subroutine at $FFD2 and dec-
rements the X value by 1. The
DEX instruction modifies the Z
flag according to whether the
result in X is O or not. If not,
BNE takes us back around
the loop. If X is 0, we've fin-
ished printing this line.

200F LDA #$0D
2011 JMP $FFD2

We end the line of X's by print-
ing a Return character ($0D).
This time we jump (JMP) to
the printing subroutine, rather
than using JSR. When print-
ing ends, we return to what-
ever called our ML program—
in this case, it was BASIC.

Here's the code in BASIC.
It draws a graph of Y=X*X.

100 DATA 174,0,33,169,88,
224,0,240,6,32,210

110 DATA 255,202,208,250

120 DATA 169,13,76,210,255

200 FOR J=8192 TO 8211

210 READ X:T=T+X

220 POKE J,X

230 NEXT J

240 IF T<>2814 THEN STOP

300 FOR J=-6 TO 6

310 POKE 8448,J*J

320 SYS 8192

330 NEXT J a)

PROGRAMS

ss EE EO LOS A RT ET DPT RES aT TOE OE)

CHAIN REACTION

By Graham Fyffe

You're in charge of a nuclear reactor, and
it's malfunctioning. It's up to you to pre-
vent a meltdown. The radioactive atoms
keep spewing out of the reactor, but you
can contain them in a lead-lined vessel.
But watch out! If the vessel overflows, it'll
destroy the reactor!

Getting Started

Chain Reaction is made up of four pro-
grams: a BASIC boot program or load-
er, a machine language program,
graphics, and the main BASIC pro-
gram. To help avoid typing errors, use
The Automatic Proofreader to enter the
BASIC programs; see ‘Typing Aids”
elsewhere in this section. Be sure to
save the programs on the same disk
and with the proper filenames because
the boot program loads those pro-
grams automatically. Also, you may
want to use BASIC abbreviations for
some of the commands when you en-
ter lines 80, 140, and 150 of the main
program. These lines fill two entire
screen lines.

CHAIN.ML and CHAIN.CHARS are
written in machine language. To enter
these programs, use MLX, COM-
PUTE’s machine language entry pro-
gram; again, see “Typing Aids." Enter
the following addresses for CHAIN.ML
when MLX prompts.

Starting address: COOO
Ending address: C1FF

Enter the following addresses for
CHAIN.CHARS when MLX prompts.

Starting address: 8200
Ending address: 84F7

Be sure to save these programs before
you exit MLX.

Playing the Game
To start Chain Reaction, load and run
CHAIN.BOOT. After a few seconds,
the screen should turn black, and
then you should see the message
LOADING CHAIN REACTION. You'll
then see the title screen, the level of
gameplay, and a bunch of colorful
dancing atoms.

To change the level of gameplay,

press f1. To start the game, press Re-
turn, To pause the game at any time ex-
cept during a reaction, press the up-
arrow key that’s next to the Restore
key. Press this key again to resume
play. To quit during a game, hold
down the Shift key and press Clr/
Home.

At the start of the game, a colored at-
om will wobble out of the reactor onto
a bar that extends over the contain-
ment vessel. You have a limited time to
move the atom left or right with the
joystick before the atom drops into the
vessel. You can press the joystick but-
ton to make the atom drop ahead of
time. Any atoms touching atoms of
their own color will explode, making ad-
ditional room in the vessel. If an atom
explodes beneath another, the top at-
om will drop down. If you plan out a
careful strategy, you may get dozens
of atoms to explode with a single
drop. The object of the game is to pre-
vent the vessel from overflowing.

The Levels

On the practice level, there are no ob-
stacles in your way. On the easy level,
a green accelerator beam streaks
across the vessel after each drop. If it
comes in contact with anything, it will
change whatever it hits into an atom of
a random color.

On the moderate level, a blue block
appears in the vessel after each drop,
but the green beam will sometimes
clear them out of the way. The beam
never clears out the second row from
the top, so it can fill up with blocks.

On the hard level, there are no
green beams, only blue blocks. The ves-
sel fills up fast, but you'll always have
the top row to work with because
blocks never land on it.

Scoring
When an atom explodes, your score in-
creases by the number of atoms in a
row that have exploded so far. Scoring
also depends on the level of play. You
get no points for practice rounds. Easy
rounds earn you regular points. Moder-
ate rounds earn you three times as
many points as easy, and hard rounds
earn you five times as many points as
easy rounds.

The game keeps track of your
score, how many atoms have explod-

ed, and the high score of the day.
These scores are kept to the right of
the containment vessel.

CHAIN.BOOT

PK 5 REM COPYRIGHT 1993 - COMP
UTE PUBLICATIONS INTL LTD
- ALL RIGHTS RESERVED
B=Bt+l
IFB=1LTHENFORT=9T07: POKE3
2768+T,G
IFB=1THENLOAD"CHAIN.CHAR
s",8,1
IFB=2THENLOAD"CHAIN.ML",
8,1
POKE53281,0: POKE53280,15
: PRINT" {BLK} {CLR}";
POKE52,128: POKE56,128:CL

RX 19
EK 26

DX 30
DR 48
JX 56
DD 66

R
POKE56576, (PEEK (56576) A
ND 252) OR 1
POKE53272,32
POKE648,136
POKE56334,PEEK(56334) A
ND 254

POKE1,PEEK(1) AND 251
FORT=8T0512; POKE32768+T
PEEK (53248+T) :NEXTT

KF 78

DS 130 POKE1,PEEK(1) OR 4
BR 149 POKE56334,PEEK(56334) O
R 1

AM 150 POKE53270,PEEK(53278)0R
16

DM 164 PRINT" {CLR} {WHT}LOADING
{CYN}CHAIN REACTION"

KB 170 AS=CHR$ (34) :PRINT" {BLK}

NEW"

AS=CHR$ (34) : PRINT"
{DOWN}LOAD";AS$; "CHAIN.B
AS";AS;",8"

PRINT"{4 DOWN}RUN{7 UP}
";2POKE198,6
FORT=631T0633:POKET,13:
NEXTT

FH 210 POKE198,3

CHAIN.BAS

PK 5 REM COPYRIGHT 1993 - COMP

UTE PUBLICATIONS INTL LTD
- ALL RIGHTS RESERVED
REM SETUP
POKE53281,9:POKE5S3289,0:
POKE53282,11:POKE53283,1
:GETAS:GETAS
DIMAG (8,9) : PRINTCHRS (8)
$=54272:FORT=STOS+24:POK
ET,.:NEXTT:POKES+5,9
ZA$=""CCCCCCCCCCCCCC" : ZBS
="{HOME}{5 DOWN) ":zCcS="
{DOWN} {5 LEFT}":ZD$="
{6 RIGHT}":ZES="
{7 SPACES}"
ZES="000000":2GS="
us) SPACES} L4}Ax*HRRKE RRR
*e**A": ATS="NO{DOWN}
{2 LEET}PO{OFF} {WHT} {UP}

DECEMBER 1993 COMPUTE G-25

EJ 200

JM 16
QR 26

XP 36
QB 46

ES 50

GA 66

PROGRAMS

GE

EP

KK

DH

Qs

KM

GD
XJ

KS

KQ

xs

GE

5Q

BC

GJ

RE

G-26

70

80

96

169

116
126

139
146

156

163

176
186
196
266

216

226

239

246
250

266
278
280
2968

":BLS="{7}{N}{0} {DOWN}
{2 LEPT}{D}{Z}{UP}"

COS (1) ="€2}":COS (2) ="43}
"3COS (3) ="{4>":COS (4) ="
{5}":COS (5) ="{6F"2COS (6
="483"
SC=6:AT=6:FORT=1T07:FORI
=1T08:AG(T,1) =.:NEXTI:NE
XTT:DI=1:DS=0:BAS="{OFF}
{2 SPACES}{DOWN}{2 LEFT}
{2 SPACES}{UP}"
DI$(1)="PRACTICE":DIS (2)
="BASY":DI$ (3)="MODERATE
"3DIS(4)="HARD"
R=G:V=0:C=2:DES="N": XPS
="{RVS}{4}LM{DOWN}

{2 LEFT}NOo"

REM DRAW SCREEN
PRINT" {CLR} {4} {OFF}

{3 DOWN} "SPC (22) "IJIK"Z
CS"ELMMH"ZCS"G {3}NO{4>
H"ZCS"G {3}PQT4}H"
PRINT ZGSZAS$"CCCCC";
FORT=1T016: PRINT"

{5 SPACES}B"SPC(14)"B":
NEXTT: PRINT"{5 SPACES}D
"ZAS"E {HOME} "SPC (36) "
$4} {OFF}RTV";

PRINT" XZ"ZCS$"SUWY+"ZCS$"
(2 LEFT) {-}-]¢*}
{SHIFT-SPACE}{K}{I}{T}
£@}{DOWN}"ZC$"{2 LEFT}
LEPE{DOWN} {GP E+) {MP

{5 DOWN}":PRINTSPC(22)"
LEP{CPEXP{VP{2 DOWN)";
PRINT" {DOWN} {4 LEFT}{E}
{R}{UP{LHP{I}{2 DOWN} "ZC
S"{LPLYP{UP{LOP{LE}"ZBS"
{7 DOWN}"ZD$;:FORT=1T06
:FORI=1T07
PRINTCOS (INT (RND(@) *6) +
1) ATS; :NEXTI: PRINT: PRIN
TZDS"{DOWN}"; :NEXTT

REM START
POKE53247,0:SYS49323:PO
KES+24,15

PRINTZBS"{6 DOWN}"SPC(2
8) "{WHT}"ZES"{2 DOWN}"z
CS"{LRFT}"ZES$"{2 DOWN}"
ZCS$"{ LEFT }"ZPS$:GOSUB289
PRINTZBS"{3 DOWN}"ZDS"
{CYN}F1-{WHT}GAMEPLAY:"
: PRINTZDSZESZES;"{UP}"
PRINTZDSSPC (7-LEN (DIS (D
I) )/2)DI$(DI) :IFDI=1THE
NDS=G

PRINTZDS"{CYN} PRESS RE
TURN": PRINTZDS"

{3 SPACES}TO START"
IFAS=""THENGOSUB968: GOT
0246
IPAS="{F1}"THENDI=DI+1:
IFDIS5THENDI=1
IFAS=CHR$ (13) THEN316
AS=""":DS=2*DI-3:GOTO210
REM PRINT SCORE
PRINTZBS"{2 DOWN} ":JJ=H

COMPUTE DECEMBER 1993

MK

HP

HB

QR

PG

398

3148
320

336
348

358

360

376

3865
399
409
410

426
436

448
456
468
478
480

499
506

510

520

530
540

556
566

576

586

596

S$:GOSUB300:JJ=SC*DS:GOS
UB30: JJ=AT: GOSUB300:RE
TURN

PRINT" {2 DOWN} {WHT}"SPC
(35-LEN (STRS$ (JJ) ))MIDS(
STRS (JJ) ,2,10) :RETURN
REM CLEAR AREA
PRINTZBS"{3 DOWN}"; :FOR
T=1T016:PRINTZDS"{OFF}"
ZESZES$:NEXTT

REM NEW ATOM
PRINTZBS"{2 DOWN}"ZGS:C
O=C:DS="N"
FORT=22TOL8STEP-1:PRINT
ZBSSPC(T)CO$(CO)ATS;:1F
T=19THENPRINT"G {DOWN}
{LEFT }G":GOT0376

PRINT" {DOWN} {LEFT} ":G
OSUB960:V=6:R=7:TM=10:R
E=G
GOSUB969:NEXTT:C=INT (RN
D(G@)*6) +1: PRINTZBSSPC (2
3) COS (C) "PQ{ DOWN}

{2 LEFT}{2 SPACES}":GOS
UB966
PRINTZBSSPC(23)CO$(C) 7A
T$:GOSUB96G

REM INPUT FROM JOYSTICK
JV=PEEK (56320) :FR=JVAND
16:JV=15-(JVAND15) :A=R:
V=6:B=V
IFJV=4THENR=R-1: [PR=OTH
ENR=1

IFIV=4THEN460
IFJV=8THENR=R+1: IFR=8TH
ENR=7

IFIV=8THEN460
IFFR<>16THEN499
IFA<>RTHENGOSUB1696
TM=TM-1: IFTM=OTHEN49@
GOSUB1124:GOSUB96G:GOTO
400

REM DROP ATOM
PRINTZB$"{2 DOWN}

{5 SPACES} {4}A"ZESZES
A=R:B=V:V=V+1:IFAG(R,V)
<>GORV=9THENV=V-1:GOTO5
49
GOSUB1090:GOSUB1126:GOS
UB969

GOTO51¢
AG(R,V) =CO: IPV=@THEN1@L
6

REM REACTION
ES="N":FORT=1T08:FORI=1
TO7:IFAG(I,T)=GORAG(I,T
) =10THEN61G

IFAG(I,T+1) =OANDT<8THEN
AG(I,T+1)=AG(I,T) :AG(I,
T)=6:FS$="1":GOSUB635:GO
TO61G

IFAG(I,T+1) =AG(1,T) ANDT
<8THENA=I:B=T+1:FS="2";
GoOsuB899
IFAG(I-1,T)=AG(I,T) ANDI
>1LTHENA=I-1:B=T:FS="2":
GOSUB890

Qk
BG
QQ

FJ
HF

GJ

HG

608
616
626

636
646

656

666
678
688
698
768
710
728

736

748

758
768

776
788

796

806
819

820
830

846
858

869
870

880
896
966

919
929

IFFS="2"THENA=
"1"; GOSUB89G:
NEXTI:NEXTT: IFFS="N"THE
N660

GOTO55¢

REM PULL ATOM DOWN
PRINTZB$" {DOWN} "SPC (1*2
+4) ;:FORJ=1T0T: PRINT"
{2 DOWN}"; :NEXTJ:PRINTB
AS: PRINTZBS"{DOWN}";
PRINTSPC (I*2+4) ;:FORJ=1
TOT+1:PRINT"{2 DOWN}";:
NEXT J: PRINTCOS (AG(I,T+1
) )AT$:RETURN

REM DIFFICULTY CHECK
IFDI=2ANDDS="N"THEN750
IFDI=3ANDD$="N"THEN756
IFDI>2THEN719

GOT033¢

REM DRAW BLOCK

I=INT (RND(G)*7)+1:T=INT
(RND (G)*7)+2:AG(I,T)=10
: PRINTZBS" {DOWN} "SPC (4+

hI

FORZ=1TOT: PRINT"

{2 DOWN}"; :NEXTZ:PRINTB
L$

FORZ=10TOLSTEP-.5: POKES
+4,32:POKES+1,2: POKES, 1
G: POKES+4, 33:NEXTZ:GOTO
336
REM DRAW ZAPPER
A=INT (RND (0) *8) +1: TFA=2
THEN760
IFDI=2THENA=INT (RND (@) *
5)+4
PRINTZBS$"{DOWN}"SPC (6);
:FORT=1T0A: PRINT"
{2 DOWN}"; :NEXTT:FORT=1
TO7:PRINT"{6{SI{P}";
FORZ=1TO1GGSTEP50: POKES
+4,33:POKES+1,2: POKES, 1
6: POKES+4, 32:NEXTZ
IFAG (T,A) <>OTHENAG (T,A)
=INT (RND (G) *6) +1
NEXTT: DS="Y": GOSUB826:G
oT055¢
REM REDRAW AREA
PRINTZBS"{3 DOWN}"SPC (6
) ; :FORT=1T08:FORI=1T07
IFAG(I,T) =GTHENPRINTBAS
7:GOTO879G
IFAG(1,T) =LOTHENPRINTBL
7 :GOTO87G
PRINTCOS(AG(I,T)) ATS;
NEXTI: PRINT: PRINTSPC (6)
"{DOWN}"; :NEXTT: RETURN
POKES+4,128: POKES+1,16:
POKES, 10: POKES+4,129
IFA=I AND B=T AND AG(I,
T+1)=AG(1,T) THENRETURN
IFA=I AND B=T AND AG(I+
1,T)=AG(1,T) THENRETURN
REM DRAW EXPLOSION
PRINTZBS" {DOWN}"; : FORZ=
1TOB:PRINT"{2 DOWN}";:N
EXTZ: PRINTSPC (4+A*2) XPS

DG 936 FORZ=10T020; POKES+4, 33:
POKES+1,2Z: POKES, 10: POKE
S+4,32:NEXTZ

QK 940 PRINTZBS"{DOWN}"; :FORZ=
1TOB:PRINT"{2 DOWN}";:N
EXTZ: PRINTSPC (4+A*2) BAS

EQ 95@ AG(A,B)=G:RE=RE+1:AT=AT
+1:SC=SC+RE:GOSUB280:RE
TURN

JD 968 GETBS$: IFBS=CHR$ (147) THE
N1146

FS 970 IFBS<>"<"THENAS=BS:; RETU
RN

SP 980 PRINT" {HOME} {WHT} {OFF}"
SPC (18) "PAUSED"

FF 996 GETBS:IFBS<>""THENPRINT
"{HOME} {WHT} {OFF}"SPC(1
G6) ZES: RETURN

BA 1996 GOTO996

RB 1410 REM NUCLEAR MELTDOWN

SG 1628 PRINTZBS"{3 DOWN}"SPC(
6) ; :FORT=1T08: FORI=1TO
7:PRINTXPS"{UP}";

FC 1030 POKES+4,129: POKES+1,T*
16+1*16:POKES,5@: POKES
+4,128

JG 1049 NEXTI: PRINT: PRINTSPC(6
)"{DOWN}."; sNEXTT

XS 1650 FORT=1T050: POKE53281,9
: POKE53281,1

KF 1668 POKES+4,129:POKES+1,T:
POKES, 50: POKES+4,128:N
EXTT: POKE53281,@: POKES
+24,0

MC 1676 FORT=1T01000:NEXTT:IFS
C*DS>HSTHENHS=SC*DS

HE 1080 GoTol146

MJ 16906 REM REDRAW ATOM

AC 1160 PRINT"{HOME}{4 DOWN}":
IFB=GTHENPRINTSPC(4+A*
2) BAS: RETURN

GX 1110 PRINT" {DOWN}"; :FORT=1T
OB:PRINT"{2 DOWN}"; :NE
XTT: PRINTSPC (4+A*2) BAS

:RETURN

DK 1126 PRINT" {HOME}{4 DOWN}":
IFV=GTHENPRINTSPC (4+R*
2) CO$ (CO) AT$: RETURN

KA 1139 PRINT" {DOWN}"; :FORT=1T
OV: PRINT" {2 DOWN}";:NE

XTT : PRINTSPC (4+R*2) COS
(CO) ATS: RETURN

CQ 1140 REM RESET

BG 1150 POKE36866 ,HS/256: POKE3
6867 ,HS-INT (HS/256) *25
6: POKES+24,0:CLR

AG 1160 HS=PEBK (36866) *256+PEE
K (36867) :S=54272:GOTO2
8

CHAIN.ML

COGG:AG BG BO 24 83 99 96 81 68

CGG8:CB FG G3 4C G2 CO 6G AB C3

CO1G:EG B9 48 83 99 96 81 C8 8B

CQ18:FG 63 4C 11 CO 60 AB EG 17

CG2G:B9 68 83 99 9G 81 C8 FG AD

CG28:03 4C 26 CO 66 AG EG BO 4F

CG30:86 83 99 9G 81 CB FB G3 23

C638:4C
CG40:20
C648:G1
CG50:92
CO58:CB
CO60:8E
CO68:FO
CO70:26
C678: 66
C988:26
CO88:1E
CG9G0:FD
CG98:GA
COAG: 31
COA8: 04
COBG: 03
COBB:A9
COCO:FE
CG6C8:19
C6DG8:1C
COD8:19
CGEG:1C
CGE8:1C
COFG:1C
COF8:1C
C1@d:1C
C168:B1l
C116:D6
C118:Bl
C120:D6
C128:D06
C130:D6
C138:D6
C140:D6
C148:6D
C156:96D
C158:0D
C160:9D
C168: 0D
C176: 0D
C178:0D
C186:0D
C188:0D
C196:0D

C1B8:6D
C1CG: 6D
C1Cc8:6D
C1p0:6D
C1D8:4D
C1E@:6D
C1E8:9D
C1EG6:6D
C1F8:6D

CHAIN.CHARS

8266:00
8208:AA
8210:BD
8218:AA
8220:BE
8228:BD
8230:90
8238:40
8240:D0
8248:05
8250:55

55

8258:00
8266:7B
8268:FF
8270:00
8278:06
8286:73
8288:CD
8296:55
8298:80
82AG:55
82A8:82
82B0:55
82B8:20
82C0:55
82C8:88
82D0:55
82N8:9E
82E0:3D
82E8:07
82F0:C7
82F8:41
8300:F3
8308:FC
8310:FD
8318:FG
8320:73
8328:00
8330:06
8338:06
8346:6C
8348:00
8359:15
8358:54
8366:6F
8368:FD
8376:1C
8378:68
8380:46
8388:06
8396:00
8398:08
83AG:00
83A3:00
83B0:00
83B8:08
83C0: 08
83C8:98
83D0:08
83D8:69
83E0:09
83E8:00
83F0:00
83F8:00
8400: 08
84068:08
8410:1F
8418:CF
8420:00
8428: 00
84306:73
8438:CD
844G:98
8448: 06
8450:F3
8458:F4
8466: 06
8468:46
8470:06
8478:AD
8486:9D

40
7B
FE
0)
Go
F3
CF
68
80
C3
82
OF
26
gc
88
c3
9E
33
9D
@D
c3
46
Do
77
5c
3}
54
46
54
1c
Uy)
7A
AD
6F
FD
78
0G
De
Go
06
Go
66
06
G6
CI)
Uy)
oo
i)
iT)
1)
i)
Oo
96
1)
C4)
3F
hey
1)
oo
F3
CE
oo
oo
FF
FC
i)
co
66
4G
@D

48
7B
FE
9o
Go
FFE
EE
Da
80
82
82
1A
26
48
88
82
8E
33
gc
gc
c7
06
DB
D3
6c
E7
co
co
co
3D
33
7B.

ED

w=)
FD
1D
Cr)
96
1F
3c
74
F4
FC
3c
FC
74
cc
7c
33)
3D
3c
33
1)
Go
58
3F
FF
1)
ao
EE
ae
@S
oo
EF
FC
cy)
co
G2
46
@D

Do
7E
FE
1F
F4
7F
FD
86
68
AA
C3
2a
36
88
cc
B6
C3
C3
3F
34
c7
C3
OF
c7
D3
gc
54
54
46
06
4c
6F
FD
7E
FD
1} )
1l
DG
B4
RS
D3
33
FO
cc
C3
D3
OF
DO
cc
F4
F4
cc
oo
GC
FF
97
FD
1F
B4
TE
FD
FE
38
iE:
DG
Gl
96
63
9G
8D

DECEMBER 1993 COMPUTE

DG
15
55
3F
FC
1F
F4
80
55
82
55
26
55
88
55
B6
55
41
15
16
41
41
65
41
41
4
1)
ao
ao
i)
F4
6F
FD
15
54
40
96
46
i)
i)
06
oo
Cis)
UIs)
Uy)
Oo
Uy)
oo
1)
Cr)
96
Go
ao
1c
CE
G1
F4
3F
FC
lF
F4
E3
34
1F
46
7A
96
ol
GG
@D

81)

G-27

PROGRAMS

8488:0D 8D BD BD OD BD BD BD 91
8498:6D GD GD BD BD GD BD BD 99
8498:0D 8D 6D BD BD BD BD BD Al
84A8:6D 8D 8D BD BD GD BD BD AY
84A8:0D 6D GD BD BD BD BD BD Bl
84B@:0D 6D GD BD BD BD BD BD BI
84B8:0D 6D 8D 6D BD GD BD BD Cl
84CG:6D OD GD BD BD GD BD BD C9
84C8:0D OD 8D GD BD BD BD BD D1
84D8:8D 6D BD BD BD BD BD BD DI
84D8:6D 8D GD 8D 6D BD BD BD El
84E9:6D GD OD BD BD GD BD BD EY
84E8:0D GD @D OD BD GD GD @D Fl
84F0:0D OD BD BD GD BD BD BD FY

Graham Fyffe, 15, has been program-
ming in BASIC for eight years. He en-
joys comics and graphics and likes
drawing and painting. He lives in Freder-
icton, New Brunswick, Canada.

CUSTOM CHARACTER
SCREEN DESIGNER

By Daniel English

Advanced programmers commonly
work with custom characters on the 64.
With a tool such as Ultrafont + (July 1984
and September 1986 issues and on The
1992 Best of Gazette Utilities Disk), you
can easily transform characters into
your own custom graphics. Using these
graphics in your own programs was not
so easy—until now. Custom Character
Screen Designer allows you to create mul-
tiple character screens easily and save
them on disk for use in your own pro-
grams. A BASIC display program is in-
cluded in the package. You may want to
keep CCSD on a disk with Ultrafont +.

Getting Started

The CCSD package consists of three
programs. The main program is the
screen editor. When MLX prompts, re-
spond with the following addresses.

Starting address: C000
Ending address: CDFF

Be sure to save a copy of the program
before exiting MLX.

The next two programs are used for
displaying your screens from within
your own BASIC programs. The main
CCSD program does not require these
two display files, however.

To help avoid typing errors, enter Dis-
play.BASIC with The Automatic Proof-
reader. See “Typing Aids” elsewhere in
G-28 COMPUTE DECEMBER 1993

this section. Remember to save the pro-
gram before you attempt to run it.

Enter DISPLAY.ML with MLX, our ma-
chine language entry program. Again,
see “Typing Aids.” When MLX
prompts, respond with the following
addresses.

Starting address: CFOO
Ending address: CF77

Be sure to save these two display pro-
grams on the same disk for later use.

Functions

To begin, load CCSD with the ,8,1 ex-
tension and type NEW and then SYS
49152. A menu screen will appear. The
upper portion of the screen is the
menu of commands, and the lower por-
tion displays your character set. You
may use the default ROM character set
if you do not want to create your own.
To load a character set, press F. The
character set will always load into
12288 ($3000 hex). If you wish to save
your character set at this location for
use in your own programs, press N.

When a character set is loaded, you
are ready to choose colors. If your char-
acter set was created in multicolor
mode, press M. Pressing keys 1
through 4 will change the four colors.
These keys correspond to the same col-
or keys used in Ultrafont +. If your char-
acter set is not in multicolor mode, on-
ly keys 1 and 4 will apply.

The current color you are changing
will be indicated by the arrow below
the color palette. Notice that when
you're in multicolor mode, color 4
must be set on the right side of the pal-
ette. If you want color memory stored
with your screen data, press C.

Next, you must choose an address
for your screen. The default address is
32768. To change this, press A. You
will be prompted to enter a new ad-
dress. You can have up to 24 screens
in memory (12 with color) at one time.
Remember that each screen uses
1000 bytes (2000 if color is saved). If
you stored one screen at 32768, then
the next one could start at 33768
(35768 if color is saved).

Copying Characters
The lower section of the screen con-
tains your character set. A flashing rec-

tangle encloses the character(s) you
have selected to use while drawing
your screen. Position the cursor with
your joystick in port 2, and use the cur-
sor keys to change the size of the cur-
sor into a window that can copy up to
six characters at a time. Press the but-
ton to choose the character(s) you
wish to copy onto your screen. Press
7 to switch between the editor and
drawing screen.

In the drawing screen, the window
will appear in the upper left corner of
the screen. Use the cursor keys or
joystick to move the window. Press the
fire button to copy the characters onto
the screen. CCSD lets you type data on-
to the screen also.

All colors and screen functions are
available to you while you're in the ed-
itor. For example, pressing Shift-Clr/
Home will clear the screen, and Ctrl-2
will turn the character color to white. No-
tice the window doesn't advance au-
tomatically when you type. The cursor
keys are the easiest way to move the
window if you wish to type in text.

A copy feature is built into the draw-
ing screen mode. To copy characters
already on the screen, simply move the
window over the character(s) you wish
to copy and press f1. Now when you
draw with the joystick, the copied char-
acter(s) will appear. This eliminates fre-
quent screen swapping.

To store the screen and return to the
Editor menu, press f7. If you do not
want to store the changes, press f8.
Pressing f8 can be used as an undo
feature.

Screens on Disk

When your screen design is complete,
press S from the Editor menu to save
it. You'll be asked for a filename, and
your screen will be saved to disk.

If you want to load a previously
saved screen, press L. A screen is al-
ways loaded into the address specified
at the top of the screen, regardless of
its saved address.

When your character set and
screen(s) have been saved to disk,
you are ready to use them in your own
program. The BASIC display program
was designed to be a subroutine.
First, have your BASIC program load
the DISPLAY.ML file, your saved
screen(s), and your saved character

set. Next, alter the values in the BASIC
display program to match those cho-
sen in CCSD. Remember to change
the value of AD in line 63050 to the ad-
dress of the screen you wish to dis-
play.

Machine language programmers
will have no problem using CCSD
screens. You may use the code in the
DISPLAY.ML file or use your own
screen copier routine.

CCSD can create many commercial
quality effects quickly and efficiently.
From a BASIC menu to a complex
game background, CCSD will make
the task enjoyable.

ccsD

CO6G:4C
C068: 08
CG1G:08
CO18:FF
CB26:96
CG28: 96
C93G:0G
CO38:66
CO40:00
C048: 66
CG56:91
COS58:FF
CO6G:08
CG68:00
CO70:06
CO78:66
CO8G: 96
C688:G1
C69G: 00
CO98:FE
COAG: 8G
CGA8: 60
COBG: 68
COB8: 68
CGCG:88
COC8: 88
CODG: 60
COD8:81
CHEG: 6G
COE8: 96
COFG:FE
COF8: 08
C100:98
C168:96
C110:01
C118:868
C126:06
C128:61
C13G:FF
C138:98
C14G:06
C148:61
C158:66
C158:80

C178:66
C188:498

C188:2A

C1C8:AD
C1D6:D8

C26G:A9
C208:6D
C210:D9
C218:8D

C250:FS
C258:FA
C266:C6
C268:A9
C270:86
C278:5A
C286:C2
C288:66
C296:FD
C298:FA
C2AG:85
C2A8:FF
C2BA:FC
C2B8:69
C2CG:G1
C2C8:FB
C2DG:A5
C2D8:C9
C2E0:D6
C2E8:CA
C2FG:60
C2F8:8D
C30G:FF
C368:2B
C316: 63
C318:4C
C320:98
C328:99
C336:C2
C338:96
C340:AC
C348:C2
C350:C2

C3BG:28

C3B8:28
C3CG:A3
C3C8:A3
C3D6:A3
C3D8:9E
C3EG:52
C3E8:44
C3FG:33
C3F8:43
C400:46
C408:1E
C410:43
C418:65
C420:28
C428:26
C430:4F
C438:53
C440:26
C448:41
C456:36
C458:31
C46G:4E
C468:52
C476:44
C478:52
C48G:41
C488:45
C490:20
C498:4F
C4AG:4F
C4A8:20
C4BG:1E
C4B8:4E
C4cg:51
C4C8:65
C4DG:49
C4D8:26
C4EG:1C
C4E8:1F
C4F6:4D
C4F8:29
C506:28
C508:20
C510:26
C518: 26
C526:26
C528:6D
C536:53
C538:49
C548:48
C548:41
C550:9D
C558:52
C560:53
C568: 26
C570:26
C578:6D
C580:4C
C588:45
C590:53
C598:34
C5AG:11
C5A8:41
C5BG:20
C5B8:48
C5CO:49
C5C8: 28
C5DG: 43
C5D8: 4C
C5EG:G5

DECEMBER 1993 COMPUTE

26
26
A3
A3
26
52
52
32
4F
@D
26
52
4c
53
26
41
45
53
52
39
2D
47
53
52
29
1E
26
65
52
46
26
20
44
55
4D
43
26
20
26
2F
@D
20
65
1E
95
99
iat
45
43
4F
52
26
53
20
53
57
Go
49
4E
53
2D
9A
44
a5
41
4c
as
52
45
Cis)

26
A3
A3
A3
26
45
45
37
4c
1l
53
45
1E
43
26
44
54
41
53
36
34
45
20
41
6D
20
41
43
20
46
65
53
4P
49
1E
4P
26
oF
9E
43
26
20
20
20
26
26
26
20
4B
4F
41
26
4F
43
49
49
93
44
26
3A
34
45
44
Go
52
45
96
45
45
A2

A3
A3
A3
A3
26
4E
53
36
4P
20
41
45
26
52
65
29
26
56
45
@D
1E
20
28
57
ts)
43
44
1E
44
2E
46
57
20
54
29
4c
12
26
26
26
26
29
1c
le
96
9A
26
4A
26
53)
43
26
52
48
5A
4E
il
20
41
20
Sy
4E
52
93
53
4E
93
45
41
Oi)

6G

A3
26
20
A3
43
41
26
26
4F
@5
20
26
41
4E
26
41
4E
43
24
26
48
4c
1E
4c
26
4E
26
4F
41
6D
46
2F
1E
26
4c
26
@5
1E
96
41
20
12
26
26
26
20
99
53
20
43
52
43
45
47
4F
57
56
52
52
33
36
52
53
oF
26
45
oF
46
3A
8A

A3
26
A3
@D
55
44
@5
98
46
53
53
29
44
@D
4c
52
1E
48
33
@5
4)
4F
3D
4F
g5
47
26
4c
26
26
38
55
26
26
54
20
26
26
28
57
26
96
9c
81
98
92
55
54
43
48
53
55
59
45
46
29
41
45
45
38
oD
26
3A
43
46
3A
53
49
26
99

2D
Dc
49
cl
1B
9D
cD
G4
D4
r2
82
2g
63
a5
55
4c
19
B5
64
9B
GE
cc
E8
8D
DD
95
F4
AE
A4
@D
BA
30
30
FF
9A
A2
CE
38
3E
9c
42
DF
07
66
BE
12
85
3A
98
5c
15
15
G3
Al
37
27
93
AG
TE
E4
4F
65
EB
16
3A
95
3E
58
cD
F6

G-29

PROGRAMS

C5E8:84
CS5FG:AG
C5F8:CB
C6G0:D4
C668:AG
C619:CO
C618: 24
C620:A0
C628:CG
C630:74
C638:AG
C646:CO
C648:96
C656:CB
C658:00
C660:06
C668:49
C676:GE
C678:GB
C68G:AD
C688:CE
C699:08
C698: 28
C6AG:A4
C6A8: 01
C6BG:18
C6B8:18
C6CI:60
Ccé6c8:1F
C6DG:FC
C6D8:A3
C6EG:AD
C6E8:CE
C6FO:38
C6F8: 60
C760:69
C768:C9
C710:60
C718:66
C720:61
C728:c9
C730:68
C738:02
C746:A9
C748:C9
C750:F8
C758:FF
C766:AD
C768:C9
C776:66
C778:C9
C780:66
C788:FE
C796:F8
C798:FG
C7AG:FG
C7A8: 60
C7BG:FC
C7B8:29
C7CG:FG
C7C8:EFG
C7D9:D8
C7D8:D6
C7EG:A3
C7E8:E9
C7EG:C9
C7E8:ED
C800:18
C808:61
C810:A5

G-30

c8
8A
De
c8
8A
Da
cs
8A
Do
cB
8A
Dg
84
Da
86
06
AD
@D
65
Ccé
cé
G1
A3
AD
EE
68
28
A4
@l
AS
A4
C6
C6
G1
A4
8D
98
Go
AD
EE
1)
32
Ol
20
0)
co
ol
07
DG
F8
FG
FD
FS
63
co
66
EB
FS
cg
cg
6G
6a
E9
EQ
85
96
G1

61

18

18

DG
c8
8A
De
c8
8A
Do
c8
8A
DO
c8
cé
DA
C4)
66
62
OF
2B
45
Ol
38
38
0o
07
G1
AS
a4
cé
cé
ol
A4
61
AS
A4
De
66
16
68
F7
AS
EG
AD
71
8D
c7
66
67
61
F8
FO
FO
66
FF
co
co
F8
66
6G
co
c9
cg
AD
DG
AS
56
07
cé
cé
61
A3

COMPUTE DECEMBER 1993

F6
E8
99
F6
Es
99
F6
E8
99
F6
E8
AG
c8
oa
09
c8
cg
cg
66
66
E9
E9
85
Dg
Da
A3
69
cg
26
85
60
60
A3
EQ
18
DG
DG
8D
BO
cs
16
8D
Cz
G2
AD
cg
69
66
67
69
@D
Ag
8D
FD
EF
G7
Ag
bc
@D
97
66
G1
AS
A4
Ccé
co
cg
AD
Dg
AS

FE
AP
2a
40
4B
43
46
El
5B
86
7c
E8
69
BA
Ag
8F
1F
cB
EF7
95
6C
c8
BC
EF
DL
B8
76
64
BA
6B
8c
BS
A4
74
ag
66
56
4FP
DE
46
15
BS
F8
5D
39
3c
6c
EF
BD
56
EB
91
cl
BA
53
99
79
48
17
71
2E
2c
54

BA
95
67

EF

B3

31

3B

C818:A4
C820:C6
C828:C6
C830:d1
C838:A4
C849:01
C848:A5
C85G:A4
C858:67
C86d:1B
C868:2D
C870:42
C878:A3
C880:C6
C888:C8
C896: 26
C898:AD
C8AG:4C
C8A8:91
C8BG:4C
C8B8:91
c8c@:4C
C8c8:85
C8DG:A4
C8D8:E4
C8EG:FF
C8E8:FO
C8FG:FG
C8F8:18
C900:D2
C968:4C
C916:Bl
C918:A3
C920:8D
C928:68
C938:C6
C938:60
C94G:68
C948:DC
C958:29
C958: 86
C960:86
C968:91
C97G:FA
C978:FC
C980:69
C988:D6
C999:AD
C998:A9
C9AG: G3
C9A8:99
C9BG: 60
C9B8:Cl
C9CG: 26
C9C8:AG
C9DG:67
C9D8:AG
C9EG:G7
C9E8: 26
C9FG:8D
COF8:A9
CAGG:91
CAG8:A9
CA1G:A9
CA18: 68
CA2@:32
CA28:6A
CA30:2¢8
CA38:C9
CA4G:DG

oo
27
FC
A3
AD
CE
38
CT)
FA
FC
FE
AG
c3
A3
62
c8
cé6
c8
26
c8
26
cs
AD
E9
co
cg
cg
AE
EO
4c
c8
8D
SE
cé
AG
2A
69
61
FE
85
84
84
AS
EB
69
85
A5
bc
8D
99
3F
93
oo
EF
Bg
D2
B9
D2
cs
De
8D
AD
8D
85
39
E3
20
CB
FG
26

85
De
cé
AS
55
55
E9
85
FO
EG
FO
oo
c8
26
AD
4c
91
AG
c3
AG
C3
AS
86
D4
0)
ll
91
56
pe
cB
4c
5D
cé6
AG
29
Bl
cé6
8D
8D
OL
FB
FD
FA
69
G1
FD
G1
69
F8
86
cs
26
8D
Ag
8c
FF
7c
EF
ag
AQ
06
63
55
A4
cg
c2
26
AD
OF
gc

A4
61
AS
A4
cé
cé6
Ol
A4
15
24
36
AD
AG
c3
5F
7c
A3
29
c8
2A
c8
A4
62
85
Do
EG
FG
cé6
AD
c7
1E
cé6
AG
28
BL
A3
cg
69
GE
AG
AG
AG
18
ao
85
AS
09
ol
97
3E
ce
D2
15
1D
c3
c8
c4
cs
G1
C1)
De
cé
cé
ag
20
EE
c7
ao
AS
c2

CA48:E3
CA50:C6
CA58:DG
CA60:GE
CA68:85
CA70:56
CA78:18
CA80:D8
CA88:93
CA9G:C8
CA98:A9
CAAG:EE
CAA8:C9
CABO:AD
CAB8:DE
CACG:C8
CAC8:61
CADG@:C9
CAD8:63
CAE@:C5
CAE8:5E
CAF@:21
CAFS: 2B
CBOG:1A
CBG8:1E
CB1G:44
CB18:4C
CB208:CC
CB28:E9
CB30:E3
CB38:C9
CB46:69
CB48:63
CB50:65
CB58:CB
CB60:CB
CB68:C6
CB76:4C
CB78:4C
CB8G:EE
CB88:FG
CB9G:A9
CB98:4C
CBAG:FG
CBA8:AF
CBB@:63
CBB8:@1
CBCG:4C
CBC8: 4C
CBDG@:99
CBD8:A9
CBEG:EC
CBE8:FG
CBFG:29
CBF8:9B
CC68:9D
CCO8:B9
CC10:60
cc18:15
CC20:69
CC28:66
CC3G:A4
CC38:A5
CC46:14
CC48:69
CC50:8E
CC58:A2
CC6G:Cc8
CC68:C9
CC78:68

c2
8D
AD
co
A3
cé
8D
AD
20
26
28
27
63
oo
FG
4c
FO
4c
26
cg
co
cg
cg
cg
cg
68
G3
4c
cc
c2
16
8D
20
cé
ag
Ag
AD
cB
CB
63
G6
66
E2
68
CB
4c
Fd
AF
AF
EG
1E
D9
oB
8D
G4
a4
7A
DG
DG
AS
BG
1
15
18
cr)
5B
64
E8
4c
B9

CC78:C9

CC86:8D

CC88: 20

CC9G:FG
CC98:AG

CCAG:AC

CCA8: 4C

CCBG:B9
CCB8: 96
cccg:15
CCC8:F3

CCDG:12

CCD8:59
CCEG:29
CCE8:CA
CCF@:C5
CCF8:F5

CD@G:A9

CD@8:AD
CD1G:F1

CD18:AE
CD26:CD
CD28: 4c
CD3G:63

CD38:69
CD46:69
CD48: 26
CD5G:C2
CD58:D2
CD6G:85
CD68:E3
CD7G:C9
CD78:AD

CD89:CD

CD88: FE

CD9G:8D

CD98: 29
CDAG:A5

CDA8:4C

CDBG:CD

CDB8:A9

CDCGO:FF
CDC8: 69
CDD@:85

CDD8:C1

CDEG:AG

CDE8:AC

CDFG:AB
CDF8:D8

DISPLAY.BASIC

SR
QD
DA

DE

RP
EK
CE
HE

AD

63003
63016
63020

63030

630495
63058
63069
63079

63080

REM **** CCSD SCREEN
SPACE}DISPLAY ****
REM * DISPLAY ML & SC
REENS MUST *

REM * CHARSET @ 12288
MUST ALL{2 SPACES}*
REM *{6 SPACES}BE IN
SPACE }MEMORY!

8 SPACES}*
REM KEKKKKKKKKKKKK KEK

ek Ok kk ke
AD=32768:REM *SCREEN
SPACE }ADDRESS
C=@:REM *1 FOR COLOR
SPACE }SCREENS
POKE53272,29:REM *21=
ROM CHARSET
POKE53270,216:REM *26

@=NON-MCOLOR
POKE53281,0:REM *BACK
GROUND
POKE53282,1:REM *COLO
R 2

POKE53283,2:REM *COLO
RES)

POKEG46,13:REM *COLOR
4

PRINT CHRS (147)

H=INT (AD/256) :L=AD-25
6*H: POKE53104,C: POKES
3165,L:POKE53106,H
SYS 52992:REM *DISPLA
Y SCREEN

RETURN

63090
63190
631196
63129

63130
63149

63158
AM 63169

DISPLAY.ML

CFOG:A9
CFG8:86
CF1G:72
CF18:CF
CF26:AG
CF28: 26
CF3@:A9
CF38:Bl
CF46:01
CF48:FD
CF5@:A5
CF58:18
CF6G: 00
CF68:CF
CF76:99

Daniel English says he got bored using
FOR-NEXT loops to save character
screens, so he wrote this utility. He
lives in Moreno Valley, California.

RIGHT/SIDE II

By Edward A. Gase

Right/Side II is an enhanced version of
the original Right/Side program written by
Robert B. Cook and published in the No-
vember 1990 issue of COMPUTE. It lets
you print documents down fanfold paper
rather than printing across it.

This version works with Epson-compat-
ible printers in either single- or double-
density modes with your interface in trans-
parent mode. More significantly, you can
now use a variety of screen character
sets as custom fonts for printing. You'll
even be able to see what the character
set looks like onscreen.

Right/Side II is ideal for those times
when you need to print something wider
than 80 columns on an 80-column print-
er and you don’t want to switch to con-
densed type. It's also terrific for making
keyboard overlays.

Although Right/Side II was originally

written with SpeedScript in mind, it
works well with any word processor that
handles PETSCII sequential files.
SpeedScript, EasyScript, and The Write
Stuff are particularly well suited for use
with Right/Side Il because they allow you
to include the graphics characters acces-
sible with the Commodore logo key.

Right/Side || consists of two programs,
one in BASIC and one in machine lan-
guage. To help avoid typing errors, enter
the BASIC program with The Automatic
Proofreader. See “Typing Aids” else-
where in this section. When you've fin-
ished, be sure to save a copy to disk. The
second program is written in machine lan-
guage. To enter it, you'll need to use
MLX, COMPUTE’s machine language en-
try program; see “Typing Aids” again.
When MLX prompts, enter the following
values.

Starting address: COOO
Ending address: C4E7

When you've finished typing, be sure
0 save a copy of the program with the
ilename RIGHT/SIDE.ML before you
leave MLX. When you're ready to use
Right/Side II, simply load and run the
BASIC portion. It will automatically
load the machine language file.

Printing Sideways

When creating a sequential file for
Right/Side Il, remember that the right
margin of the text will be printed at
what's normally the top of the paper.
Set your right margin for any width up
0 255 characters and your left margin
0 0. If you are using EasyScript, spec-
ify the column width at the startup
screen. If you have chosen a length
hat is longer than your longest line,
spaces will be added to the top of the
page.

Right/Side would print 80 lines per
page according to the original article.
With my system, | can get only about
60 lines with 9-10 characters per
inch. That would produce a maximum
length of 25.5-28.3 inches. The results
you get will depend on your printer/
interface combination and whether you
choose Epson or Commodore mode.
The Epson printouts will be longer, but
there will be more separation between
characters.
Your original file must be a PETSCII

DECEMBER 1993 COMPUTE G-31

PROGRAMS

sequential file. Some word processors
can save in that format. If you're using
SpeedScript, the easiest way to create
such a file is to press Shift-Ctrl-P and
then press D to print your document to
disk as a sequential file. Then you're
ready to run Right/Side Il. If you pro-
duce a file that is too long, Right/Side
Il will print the excess over the top of
the text on the left side of the paper. If
the printout looks strange, reduce the
length of your file.

Menu Options

When you run Right/Side II and the
menu appears, press f1 to select Cre-
ate Right/Side File. This option con-
verts the sequential file into a Right/
Side |! file. Enter the name of your
sequential file and then the name of
the file you'll be creating. The letters R/
S are added automatically as a prefix
to indicate to the program that this is a
Right/Side || document. Press Return
on a blank line to return to the main
menu.

To print your file sideways, simply
press f3 and then enter the name of
the newly created Right/Side II file. You
don’t have to include the R/S prefix; it’s
added automatically. Next, choose be-
tween Commodore or Epson. If you
choose Epson, you'll be given the
choice of printing in single or double
density. Then press any key to start
printing. To stop printing, press and
hold the space bar.

Press f2 to load a custom character
set that you may wish to use. You'll be
asked the name of the character set.
The onscreen display will change to re-
flect the new characters. If you don't
like what you see on the screen, you
can change the character set before
you print your file.

Any nine-block character set, such
as those created with Ultrafont+,
should work just fine. | have also used
three-block character sets successful-
ly. Normally, you will use Right/Side II
with uppercase and lowercase charac-
ters, including the graphics characters
accessed with the Commodore logo
key. You could, of course, use an upper-
case/graphics set. As there are dozens
of character sets that have been creat-
ed for the Commodore 64, you should
be able to get just the look you want
for your printouts.

G-32 COMPUTE DECEMBER 1993

RIGHT/SIDE II
XA 10@ REM COPYRIGHT 1993 COMP
UTE PUBLICATIONS, INTL.
, LTD, - ALL RIGHTS RES
ERVED
GOSUB1310:REM INITIALIZ
E
GOSUB990:REM MAIN SCREE
N
POKE198,@:WAIT198,1:GET
G$:G=ASC (G$) -132:IFG<10
RG>STHEN139
ONGGOSUB186, 460,700,156
,1186:GOTO129
POKE53286,14:POKE53281,
6: POKE53272, (PEEK (53272
) AND248)OR4
PRINT" {7}{CLR}":END
REM{2 SPACES}CREATE FIL
E
PS=1:GOSUB1900:PS=0
PRINTTAB(7)"{2 DOWN}
{RVS}{RED}'H#HHHEE REE EEE
Hee TES THE EES"
PRINTTAB(7)"{RVS}' {OFF}
{GRN}CREATE {RVS} {BLK}
R{OFF}IGHT/{RVS}S{OFF}I
DE {GRN}FILE {RVS}{RED}
{BLK} "
PRINTTAB(7)"{RVS}{RED}'
SSSSSSSSSSSSSSSSSSsssss
${BLK} "
PRINTTAB (9) "{RVS}
{24 SPACES}"
POKE214,16: PRINT" {DOWN}
{2 SPACES} {RVS}{BLU}JE
{OFF}ILE TO BE READ?
{GRN} "BFS;
LN=16:GOSUB760:F1S=INS:
IFF1S$=""THENRETURN
DE=63:GOSUB83G: IFEN<>63
THEN230
DE=9:GOSUB840:IFEN>19TH
EN230
POKE214,13:PRINT" {DOWN}
{2 SPACES}{RVS}{BLU}F
{OFF}ILE TO BE CREATED?
{GRN}R/S."MIDS$ (BFS,5,2
4);
LN=12:GOSUB766:INS$="R/S
-"+INS$:F2S=INS:IFF2$="R
/S."THENRETURN
DE=62:GOSUB830:1FF2$=Fl
STHEN278
IFDE=ENTHEN346
PRINT"{UP}{2 SPACES}
{RVS}{RED}O{OFF}VERWRIT
E FILE? [{GRN}Y¥/N{RED}]
{GRN} ";:IN=1:GOSUB768
IFINS<>"Y¥"THENPRINT"
{UP}"BL$:GOTO0270
OPEN15,8,15,"S@:"+F2$:C
LOSEL5
POKE214,19:PRINTTAB (7) "
{DOWN} {PUR} {5 Q} CREATI
NG{2 SPACES}FILE {5 Q}
{HOME}"

BC 118

HD 126

RG 139

EK 146

GD 159

BS
MS

169
176

PB
JQ

180
1998

EM 200

PH 2146

JS 220 BLK}

XC 230

RG 249
EJ 256
XS 266

GR 276

DP 288

CJ 299

300
310

QX
SH

HG 329
AG 336

HC 346

RS
JQ

DP

HS
HH
ER
SE

DG

KF

Qs

MB

BF

FS
GK

QD

Qx

MH
KH

EF

SB
QB

AB

MC

AP

356
360

378

380
396
466
416

426

436

449

456

469

478
486

49G

580

519
529

538

54g
550

560

5768

586

SA=49152:FORL=1T02
OPEN8,8,8,F1$+",S,R":SY
S SA:SA=49194:CLOSE8:NE
XT:REM READ & CONVERT
OPEN8,8,8,F2S+",S,W":SY
$49285:CLOSE8:REM WRITE
TO DISK
RETURN
REM PRINT FILE
PS=1:GOSUB190G:PS=6:NP=
6
PRINTTAB(7)"{2 DOWN}
RVS}{RED}'HHSHHRER EEE
HHtP PRE E RES"
PRINTTAB (7) "{RVS}' {OFF}
{GRN}PRINT {RVS}{BLK}R
OFF }IGHT/{RVS}S{OFF}ID
E {GRN}FILE {RVS}{RED}
BLK} "
PRINTTAB(7)"{RVS} {RED}'
SSSSSSSSSSSSSSSSSSSS$S$
{BLK} "
PRINTTAB (9) "{RVS}
23 SPACES}"
POKE214,10: PRINT" {DOWN}
2 SPACES} {RVS}{BLU}E
{OFF}ILE TO BE PRINTED?
(GRN}R/S."MID$(BF$,5,2
4);
LN=12:GOSUB76@: INS="R/S
."+INS:FLS=INS: IFFLS="R
/S."THENRETURN
DE=63:GOSUB830: IFEN<>63
THEN45@
DE=6:GOSUB840:IFEN>19TH
EN45@
POKE214,13: PRINT" { DOWN}
{2 SPACES}{RVS}{BLU}E
{OFF}PSON OR {RVS}C
{OFF}OMMODORE ? [{GRN}E
/C{BLU}]{GRN} ";
IN=1:LN=1:GOSUB76@:MOS=
INS: POKE49499,1
IFINS=""THENRETURN
IFMOS="E"THENPRINT"
{DOWN}{2 SPACES}{RVS}
{BLU}N{OFF}ORMAL OR
{RVS}H{OFF}I {RVS}D
{OFF}JENSITY ? [{GRN}N/H
{BLU}] {GRN}
IFMOS="E"THENGOSUB769:D
ES=INS$: IFDES="H"THENPOK
E£49499,2
IFINS$=""THENRETURN
OPEN15,4,15:CLOSE15:0N-
(ST=G) GOTO590: IFNP=1THE
NRETURN
OPEN15,4,15:CLOSE15:0N-
(ST=9) GOTO590: IFNP=1THE
NRETURN
POKE214,16:PRINT" {DOWN}
{2 SPACES}{RVS}{RED}C
{OFF}ONNECT PRINTER THE
N PRESS A KEY":GOSUB966
:NP=1
POKE198,G0:WAIT198,1:GET
Q$:GOTO556

BLK}

We
i

BK

QG
BB

DS
AX
AK

XG

JQ

XC
JA
SP
RS

PA

PK

GP

cc

JK
GB

KP
BS

AD
EM
HM

BR

590

600
616

626
630
640
659

660

676
686
696
700

716

728

736

748
756
766
776

784

796

800
816

820
830

840
856
866

876

POKE214,17: PRINT" {DOWN}
{2 SPACES}{RVS}{PUR}P
{OFF}RESS ANY KEY TO BE
GIN PRINTING ":GOSUB930
POKE198,0:WAIT198,1
POKE214,19:PRINT" { DOWN}
{PUR} {2 SPACES}{5 Q} PR
ESS {RVS}{RED}SPACE
TRIGHT)}BAR{OFF} {PUR}TO
ABORT {5 Q}{HOME}"
OPEN4,4,7+( (MOS="E") *3)
IFMOS="E"THENPRINT#4 ,CH
RS (27) CHRS (64) CHRS$ (27) C
HRS (65) CHRS (8) :GOTO659
PRINT#4,CHR$(8):REM GRA
PHICS MODE
OPEN 8,8,8,F1S+",S,R":1
FMOS="C"THENSYS49356:CL
OSE8:CLOSE4:GOT0670
SYS49561:CLOSE8:0PEN4, 4
17: PRINT#4,CHRS (27)CHR
$ (64) :CLOSE4: RETURN
OPEN 4,4,7:PRINT#4,CHRS
(15) :CLOSE 4
RETURN
REM DIRECTORY
PRINT" {CLR} {RVS} {GRN}D
{OFF}IRECTORY{BLU}" ~
SYS57812"$",8:POKE43,1:
POKE44,48:POKE768,174:P
OKE769,167:SYS47003,1
POKE782,48:SYS65493:SYS
42291:LIST: POKE44,8:POK
E768,139:POKE769,227
PRINT: PRINT" {RVS}{GRN}
PRESS ANY KEY TO RETUR
N {HOME}"
POKE198,@:WAIT198,1:RET
URN
REM INPUT
CP=G: INS="":GOSUB930
POKE204,6:POKE198,6:WAI
7198,1:GETQS
IFQS=CHRS (20) ANDCP>OTHE
NCP=CP-1:INS=LEFTS$ (INS,
CP) :PRINTQS;
IFQS=>" "ANDQS<="Z"ANDC
P<LNTHENCP=CP+1: INS=INS
+Q$: PRINTQS;
POKE212,@: IFQS<>CHRS (13
) THEN77@
POKE204,1:PRINT" {OFF} "
: RETURN
REM DISK CHECK
OPEN15,8,15,"R0:"+INS+"
="+IN$:CLOSE15:GOTO859
OPEN8,8,8,IN$+",S,R":CL
OSE8
OPEN15,8,15:INPUT#15,EN
1 EM$:CLOSE15
IFDE=ENOREN<20THENRETUR

N

PRINT"{2 DOWN}

{2 SPACES}{RVS}{1}D
{OFF}ISK ERROR: {BLK}"E
N;EM$:GOSUB96G:POKE198,
6

PS

CR

DF

EG

EA

SA

889
896
988
916
926
938
940

958
960

978
986
996

1696

1910

1626

1636

1946
1656

1066

1676

FORL=6T01580:GETQS: IFQS
=""THENNEXT

PRINT" {UP}"BLS

RETURN

REM SOUNDS

REM BING
POKEAT, 16: POKESR,73:POK
EWV,17:POKEHF, 50: POKELL
i)

a
FORI=11T0333;NEXT: POKEWV
,16:RETURN

REM BUZZ
POKEHF,, 5: POKEAT, 0: POKES

R,249:POKEWV, 33

FORI=1T0500; NEXT: POKEWV
732:RETURN

REM SCREEN

POKE53280, 3: POKE53281,1
3 POKE53272, (PEEK (53272)

AND248) OR1O
PRINT" {CYN} {CLR} {I} {T}
CIPLTILIDATILIF{T {1}
{THLIPITHLIFLTI LIF {7}
CIP{TILIP{TP LIP {TP {I>
{TPLIFLT LI PITH LIP {TF
CIP{TILIFATILIP{TP {I}
{THLIPITH";
PRINT" {8}---

POKE214,22:PRINT"
{DOWN} {8}{40 @>";
PRINT" (CYN}

{ SHIFT-SPACE} {K}

{ SHIFT-SPACE}{K}

{ SHIFT-SPACE}{K}

{ SHIFT-SPACE}{K}

{ SHIFT-SPACE} {K}

{ SHIFT-SPACE} {K}
(SHIPT-SPACE} {K}
{SHIFT-SPACE} {K}

{ SHIFT~SPACE} {kK}

{ SHIF T-SPACE} {K}

{ SHIFT-SPACE} {K}

{ SHIFT-SPACE} {K}

{ SHIP T-SPACE} {K}

{ SHIFT-SPACE} {K}

{ SHIFT-SPACE}{K}
{SHIFT-SPACE}{K}

{ SHIFT-SPACE}{K}
{SHIFT-SPACE} {K}
{SHIFT-SPACE}{K}
{SHIFT-SPACE} {HOME}":P
OKE2023,97
IFPSTHENRETURN
PRINTTAB (5) "{BLK}ABCDE
{2 SPACES}{3}{M}

{14 £>& {OFF} {RVS}
{BLK}ABCDE"
PRINTTAB(5) "FGHIJ

{2 SPACES} {RED}{G}

{14 SPACES}{+}{RVS}
{BLK} {OFF} {RVS}FGHIJ
" —

PRINTTAB (5) "KLMNO
{2 SPACES}{3}{G}
{2 SPACES}{RVS}{BLK}R

MK

QX

XJ

FJ

JF

Ss

cD

AX

GD

BM

SH

KR

1686

1690

1198

1116

1126

1136

1146

1156

1166

1176
1186
1196

1266

12196

1220

12398

DECEMBER 1993 COMPUTE

{OFF} IGHT/{RVS}S{OFF}I
DE{2 SPACES}{RED} {+}
{RVS} {BLK} {OFF} {RVS}
KLMNO"
PRINTTAB (5) "PQRST

{2 SPACES}{3}{G}

{14 SPACES}{RED}{+}
{RVS}{BLK} {OFF} {RVvS}
PoRrsT"
PRINTTAB (5) "UVWXY

{2 SPACES} {RED} {N}>

£14 Q}{D}{RVS} {BLK}
{OFF} {RVS}UVWXY"
PRINTTAB(5)"{2 SPACES}
2{5 SPACES} {RVS}

{16 SPACES} {OFF}

{3 SPACES}{RVS}2"
PRINTTAB (7) "{DOWN}
{BLU}F 1{2 SPACES}
{RVS} {GRN}C{OFF} REATE
{SPACE} {RVS} {BLK}R
{OFF} IGHT/{RVS)}S{OFF}1
DE {GRN)FILE"
PRINTTAB(7)"{2 DOWN}
{BLU}F 2{2 SPACES}
{RVS}{GRN}LOAD{OFF}

{2 SPACES}{RVS} {BLK}C
{OFF }HARACTER SET{GRN}
fy

PRINTTAB(7)"{2 DOWN}
{BLU}F 3{2 SPACES}
{RVS} {GRN})P{OFF}RINT
{RVS}{BLK}R{OFF} IGHT/
{RVS}S{OFF}IDE {GRN}FI
LE"

PRINTTAB(7)"{2 DOWN}
{BLU}F 5{2 SPACES}
{RVS}{GRN}D{OFF}ISK DI
RECTORY"
PRINTTAB(7)"{2 DOWN}
{BLU}F 7{2 SPACES}
{RVS}{GRN}JQ{OFF}UIT PR
OGRAM"

FORL=1T05: POKE214 ,4+L*
3:PRINTTAB (6) "{DOWN}
£5}4Z3{3 S}{PP{5 LEFT}
{DOWN} {A}{3 RIGHT} {E}
{5 LEFT} {DOWN} {R}{3 Wt
{H}{HOME}":NEXT

RETURN
PS=1:GOSUB1000:PS=0
PRINTTAB(7)"{2 DOWN}
{RVS} {RED} HHH R RHEE HF
HARE RE TERR EES"
PRINTTAB(7)"{RvS}!
{OFF} {GRN}LOAD

{3 SPACES} {RVS}{BLK}C
{OFF}HARACTER SET{GRN}
{3 SPACES} {RVS}{RED}
{BLK} "
PRINTTAB(7)"{RVS} {RED}
'SSSSSSSSSSSSSSSSSSSS$
$SS{BLK} "
PRINTTAB (9) "{RVS} {BLK}
{24 SPAcES}"
POKE214,16:PRINT"
{DOWN} {RVS} {BLU}C{OFF}

G-33

PROGRAMS

PE BE PR SL LT SE RS

HARACTER SET TO LOAD? | CGD8:E4 FF AA 20 B7 FE DO GE 91 |C308:33 B3 73 F3 OB 8B 4B CB AC

{GRN} “BES;:LN=16:GOSU| CGEG:8A C9 OD FO OD A4 FB 99 57 |C319:2B AB 6B EB 1B 9B 5B DB 1E

B766 CGE8:0G 30 E6 FB DO E9 AI G2 96 |C318:3B BB 7B FB G7 87 47 C7 68

QX 1240 IFINS=""THENRETURN CGFG:85 G2 AG BG 88 DG FD 20 6D |C320:27 A7 67 E7 17 97 57 D7 2E
XX 1250 INS=LEFTS$(INS$,16):GOSU| C9F8:CC FF 88 DG FD A2 04 29 Al |C328:37 B7 77 F7 GF 8F 4F CF CC
B850: IFEN>1OTHEN123@ C100:C9 FF A9 OG 85 FC A2 G8 GB |C330:2F AF 6F EF 1F 9F SF DF 3E

EH 1260 POKE78@,@:POKE781,8:PO| C108:A4 FC B9 OG 30 85 FD AQ 91 |C338:3F BF 7F FF 63 07 07 07 88
KE782,0:SYS65466 C110:00 85 F7 AQ 28 85 F8 18 EF |C340:03 O@ GO OG CO EG EO BG 75

FE 1276 FORL=l1TOLEN (INS) :POKE8| Cl118:A5 F7 65 FD 85 F7 AS F8 49 |C348:CO 68 G6 BO BB BO BB G3 33
49+L,ASC (MID$(INS$,L,1) | C120:69 66 85 F8 CA DG FG AG B4 C350:07 07 63 66 GG BG CO EE

Pes ciagize bz EF C8 co U8 DalEL BE LC3E 90 OB AA AK AA AA 27

i C130:26 D2 FF C8 C E

pre ee SNS aE TORER NA TSo. C138:E6 FC A5 FC C5 FB DB C6 79 | C36 AA AA 55 55 55 55 EF
56/256:SYS65469 C14G:A9 OD 20 D2 FF 26 CC FF 27 |C370:55 55 55 55 FF 86 BF AG 1A

AK 1290 POKE78G,0:POKE781,G:P0| CL48:A5 42 DO G9 AS C5 C9 3C DD | C37BzAF AB ae ne Hd a ag a2
Bad ete al eel D5 55 AA AB AB AF 65

i 80 FF 00 FF 00 FF 68

GB 1300 REM INITIALIZE a re BERS RIBIGUES: 42
KE 1316 IFB=@THENB=1:DIMK(168) Gl FF G0 0a 00 OF 59
Be OE PEP ERR ATOZ BU ABEER (291 C3A8:18 14 13 13 6@ 00 66 FF D4

) =222THEN

C3B0:60 G6 FF G8 GO O08 OB FO 29
HF 1338 IFA=QTHENA=1:LOAD"RIGH FOrFSoi2e12 1212 18
T/SIDE.ML",8,1

12 12 78 78 78 78 48

BA 1340 PRINT"{CLR}{2 DOWN}SET 78 @olsat3yl7 LF 73

TING UP,..." 06 6G GO FF FF FF DF

KM 1350 POKE56334,0:POKE1,51 06 63 F8 BB D8 FB BS

XX 1360 POKE781,9:POKE782,1:PO @G6 OG FF FF FF FF EO

KE88,0:POKE89,48: POKES FF FF F@ FG FG FO 8E
@,@:POKE91,224

FO FO G8 GG OG GO 5A
BR 1376 SYS41964:POKE1,55:POKE FE FF FF 69 G6 60 80
56334,1

G2 08 9G GB Oo GO 89
DB 1380 SYS 49677 €1D8:20 D2 FF 68 AE 5B Cl CA D8 | C498:00 86 GG FF CO CO CO CB DC
CJ 1390 LF=54272:HP=54273:wv=5 | CLEG:F@ 03 26 D2 FF 26 D2 FE F4|C410:CG C@ CB CO CC CC 33 33 81
4276:AT=54277:SR=54278 | CLE8:C8 CG 08 DO CD EG FC AS BB | C418:CC CC 33 33 03 G3 G3 G3 62
:VL=54296: POKEVL, 15 C1FG:FC C5 FB DG A2 AY GD 20 EG | C420:03 G3 G3 83 BO GG BB BG 7c

FR 1400 BLS="(38 SPACES)" C1F8:D2 FF 20 CC FF AS G2 DO 22 | C428:CC CC 33 33 CC 99 33 66 7E
BQ 1410 BFS="{16 SPACES} €200:69 A5 C5 C9 3C FO G3 4C CO |C430:CC 99 33 66 93 G3 G3 G3 80
C438:03 03 63 G3 18 18 18 IF 65

(16 LerT}" C44G:1F 18 18 18 06 60 OG GO E

: 3

AJ 1426 RETURN C448:0F OF GF OF 18 18 18 1F 60
C450:1F GB GO OG GO GB OO FB 62

RIGHT/SIDE.ML C458:F8 18 18 18 G0 G9 0G OG EB

CGGG:A2 GO AG GO 84 FC A2 GB 4C | C230:BD 3C C3 9D GO 2B EB EG 55 | C460:60 OO FF FF G6 G6 66 1F a9
C068:206 C6 FF 20 B7 FF D@ 67 14 | C238:A7 D@ FS 60 G8 86 46 CO CD | C468:1F 18 18 18 18 18 18 FF 5D
C010:C8 20 CF FF C9 GD DO GA 26 | C24G:20 AB 6G EG 18 90 50 DG 4C | C47G:FF GO BO GB GG OG OG FF FO
CO18:C4 FC 90 G2 84 FC AG 60 C6 | C248:36 BG 70 FG G8 88 48 C8 EA |C478:FF 18 18 18 18 18 18 F8 D6
CG20:A2 GG 2G El FF D@ £4 4C GE | c25G:28 AB 68 ES 18 98 58 DB 5C | C48G:F8 18 18 18 CG CO CB CB SC
CG28:77 CG A2 G8 26 C6 FF AO 36 | c258:38 BB 78 F8 G4 84 44 C4 46 | C488:CB CG CO CO EG EG EG ED F3
C030:00 85 F7 AQ 30 85 F8 A2 DB | c26G:24 Ad 64 B4 14 94 54 D4 6C | C49G:EG EG EG EG G7 G7 G7 G7 56
C038:06 AG GO 84 FD 28 B7 FF GA 67 G7 EF FE 06 60 B8
C040:D6 35 B8 20 CF FF C9 OD BS 06 00 FF FF FF 00 2A
C648:D8 1A E4 FC FG 69 AD 20 44 06 GG GG GB GB 9G 32
C050:26 6F CO BB 4c 4A CO A2 14 FE FF 61 03 06 6C C6
C058:06 E6 FD AS FD C9 58 90 F5 | c2g9:32 B2 72 F2 GA 8A 4A CA 28 60 GG 80 GB GB GG AG
CG6G:DC 4C 77 CG 26 6F CG 20 BE | c29g:2A AA 6A EA 1A 9A 5A DA 9C.|C4CG:FO FO FO FG GE GF GF GE GE
CG68:El FF D@ Dl 4C 77 C@ 91 65 | c299:3a BA 7A FA G6 86 46 C6 86 | C4C8:00 OG OO OG 18 18 18 F8 9C
CO7G:F7 C8 DO G2 E6 F8 68 26 56 | c2AG:26 AG 66 E6 16 96 56 DG AC |C4DG:F8 GG GO OG FG FG FO FG F4
C@78:CC FF A9 68 26 C3 FF AY CF | C2A8:36 B6 76 F6 GE 8E 4E CE 4B | C4D8:00 G6 GG GO FG FO FO FG 8G
CG8G:64 28 C3 FF 66 A2 68 20 42 | c2Bg:2E AE 6E EE 1E 9E 5E DE BC | C4EQ:GF OF OF OF GO OG CO FF GA
CO88:C9 FF 20 B7 FF DG E8 C6 4A | c2B8:3E BE 7E FE Gl 81 41 Cl IF
CO9G:FC AS FC 85 FE 18 A9 FF 9D / c2cG:21 Al 61 El 11 91 51 D1 cc
CG98:65 FC 85 F7 AQ 2F 69 BB 19 | c2c8:31 Bl 71 Fl 99 89 49 C9 6B irfi io, i
CGAG:85 F8 A6 FD AG GG Bl F7 38 | C2pG:29 AO 69 E9 19 99 59 D9 DC pase Gace oh Fete, Ohionls
COA8:20 D2 FF 18 AS F7 65 FE 47 | C2p8:39 B9 79 F9 G5 85 45 cs cé | 27 earth science teacher and presi-
COBG:85 F7 AS FB 69 GG 85 FB 36 | C2EG:25 AS 65 E5 15 95 55 D5 Ec | Jentof the Cincinnati Commodore Com-
COB8:CA D@ EB AY GD 26 D2 FF 7A | C2E8:35 BS 75 F5 @D 8D 4D cp 8p | Puter Club. He is married and has four
CGCO:C6 FC FG B3 26 El FF DOB 97 children between the ages of 4 and

C@C8:CC 4C 77 CG AD GB 85 FB 13 20. He uses R/S II to desi
CODUAB SS 9 2NA2 {0b 20 COMER 207A6>| Ca 0ue23 Ree oonEsirs) 93 SaD3qgE Beles Aer petey Cheek,

G-34 COMPUTE DECEMBER 1993

JIGSAW 128

By Emil Heyrovsky

Jigsaw 128 is a 50-piece jigsaw puzzle
game for the 128 in 40-column mode.
With it you can scramble and reassemble
any Koala- or Doodle-format picture. Un-
like the traditional game, Jigsaw 128 us-
es nice rectangular pieces.

Typing It In
Jigsaw 128 is written entirely in ma-
chine language but loads and runs like
a BASIC program. To enter it, use the
128 version of MLX. See “Typing
Aids” elsewhere in this section if you
need a copy of this program. When
MLX prompts, respond with the follow-
ing values,

Starting address: 1C01
Ending address: 2D08

Be sure to save a copy of the program
before exiting MLX.

Playing the Pieces

To start the game, load it using the
DLOAD command and type RUN. A
menu screen will appear, and you'll be
asked to insert a disk. This means a
disk that contains pictures saved in Doo-
dle or Koala format. (These files have
DD or a reverse space and PIC at the
beginning of their filenames.) If any pic-
tures are found, a list of their names
will be displayed.

You can cycle through the list using
the cursor keys. If you want to load an-
other picture disk, press D, and you'll
be asked to insert a disk. The Stop key
gets you back to the current list. Press
Q to quit the program.

Once you've selected the picture
you want, press Return to load it. A Doo-
dle graphic will load almost instantly. It
takes about 24 seconds, however, to
set up a Koala picture. The screen will
be blank during this time.

Once the picture loads, you'll have
a couple of seconds to look at it, and
then the screen will scramble. If you
need another look at the unscrambled
picture, press the 128's Help key.

The object of Jigsaw 128 is to move
rectangular portions of the scrambled
picture about the screen to reconstruct
the original image. To move your rec-
tangular cursor to the desired piece,

use the J, |, K, and L keys to move
left, up, down, and right, respectively.
To exchange two pieces, mark the
first one with the space bar. Move the
cursor to the desired location and
press the space bar again. If you
change your mind about the marked
block, cancel your selection by press-
ing the left-arrow key (the one at the
top left corner of your keyboard).

When you think you have all the piec-
es in their correct location, press C.
You'll hear an unpleasant sound if
you're wrong or a slightly more pleas-
ant one if your image is correct. If the
sound is the better of the two, the cur-
sor frame will disappear. Then, press
any key, and you'll have the choice of
using the same picture again or trying
another.

While playing the game, press Stop
to return to the text screen and the pic-
ture list. You'll be asked to confirm this
choice. All of these commands are list-
ed on the main screen.

A Few Notes

In a multicolor (Koala) picture, two ar-
eas may appear identical, but the
bytes that represent them may differ.
This fact is important if you want to com-
pare the appearance of the active
screen with the one in memory. The rou-
tine that standardizes the pictures
causes the 24-second delay when set-
ting up a Koala picture. With the Doo-
dle or high-resolution files, this routine
is much simpler, and the delay is hard-
ly noticeable.

It is sometimes difficult to complete
a picture with many intricate or blank
areas. It sometimes helps to look for
“dust” or single dots in an area. If you
get stuck, just press the Stop key at
any time and load another graphic.

If you select Q to quit from the text
screen, the function key definitions will
be restored, but you'll have to load the
program to play again.

Finally, | would like to thank my broth-
er Albert for writing the Koala help rou-
tine and for his advice.

JIGSAW 128
1CG1:0F 1¢
1009: 31
1C11:A9
1C19:Aq
1C21:B1
1029: 4A

85
OO El
FD 5D
98 3B
FC 16
PA 91

GA
38
85
84
29
4a

DE
36
AQ
84
85
85

3A
i)
85
Ag
Bl
Bl

9E
38
26
Ui)
EC
4h

1031:C9
1C39:F5
1C41:6A
1049:C8
1€51:96
1€59:C8
1C61:0A
1C69:38
1C71:FF
1C793FA
1C81:DG
1€89:05

1CB1:A5
1CB9:B3
1CC1:68
10C9:68
1CD1:96
1CD9:8D
1CE1:D4

1D01:20
1D99:82

1D11:26:

1D19:390
1D21:28
1D29:C9
1D31:A9
1D39:21
1D41:44
1D49:84
1D51:26
1D59:2F
1D61:A5
1D69:8D
1D71:84
1D79:45
1D81:13
1D89:4F
1D91:44
1D99:49
1DA1:20
1DA9:49
1DB1:5¢6
1DB9: 29
1pC1: 26
1DC9:59
1pD1:9D
1DD9:0A
1DE1:84
1DE9:25
1DF1:03
1DF9:6C
1E91:D4
LEO9:F6
1E11:D4
1E19:1E
1E21:08
1E29:D@
1B31:64
1E39:85
1E41:03
1E£49:63
1E51:68
1E59: 68

DECEMBER 1993 COMPUTE

BE
Ag
65
co
ce
co
GA
BO
96
49
13)
FF
98
AS
G2
FD
FC
68
6B
6B
A8
04
66
cs
18
8D
AT
A2
cs
96
Bo
58
Oi)
Da
6B
A2
8A
1B
c4
20
D8
52
03
41
4P
4c
28
54
49
53
41
2F
8D
4c
28
68
GE
6B
cg
AG
EG
26
AD
A2
De
D8
68
AG
68
8c

co
GA
98
38
FA
AB
FE
A5
De
c8
GA
FC
co
68
FC
lF
9A
AG
E8
98
96
D4
98
F8
96
65
28
98
AS
20
1A
73
26
AG
88
16
FQ
Ol
GA
De
49
49
4F
4P
45
Ded
29
49
59
46
4E
Ag
co
28
31
El
93
@1
cg
84
A2
FD
EF
48
fe)
36
16
16
2D
8G

74
35
4.
7F
47
EO
47
14
77
ayo)
DA
FO
EF
8A
GE
FS
G1
BB
BD
CE
7D
26
3D
25
4a
EB
32
32
Al
24
BS
(3s\
9A
66
9D
96
1B
DF
SE
93
16
BO
86

5c
ED
38
23

hy
24

E4
45
21
AD
52
46
52
DF
47
A2
33
c8
53
95
E2
E8
E4
75
AC
1F
34

G-35

PROGRAMS

[TB DR, BE ST

1E61:00 10 C8 CG GA DG F5 AX EF| 2691:86 G1 GG 8G G1 BG 8H G1 64 | 22C1:33 CO 33 EG 33 BG 39 26 70
1£69:9D 8D 26 DG AY GB 8D 21 56| 2699:66 86 G1 GB 8G G1 GG 8G A2 | 2209:39 46 39 6G 39 8G 39 AB C6
1£71:D6 4C 59 FA 86 AY 29 85 76] 2GAl1:61 6G 86 G1 BG 8H Gl GD 86 | 22D1:39 CH 39 ED 39 BG 3A 26 76
1£79:FB A9 D8 85 FF A9 1C 85 F5| 20A9:86 61 GO 8G G1 OO FF FF 7A | 22D9:3A 24 3A 3F 50 49 43 2A D7
1B81:FD A9 68 85 FA 85 FC 85 EC| 26B1:66 66 86 GG GG FS 1F GO 14 | 22E1:2C 44 44 2A GB 1C BH 66 49
1E89:FE 85 A6 26 81 BC A5 BO B5/| 29B9:86 G1 BG 8G G1 GB 8H Gl 8C | 22E9:04 GG DB BA 64 G4 BG 88 G7
1£91:0A GA GA GA G5 Bl AG BB 67] 20C1:6G BG BG GB BG BG BG GB G2 | 22F1:G0 1C G4 BB 8C BB DB 4 D7
1£99:91 FC A5 B2 91 FE Bl FA A4]| 206C9:608 G8 GG BH BG BO BO BB GA | 22F9:G8 6G BG 1C 4 GG 64 BO G1
1EA1:85 AA AQ G4 85 AB AY GOB EE| 26D1:81 86 GG G1 86 GB GBB BG C6 | 23G1:D8 G4 40 3F GG 1C G4 28 51
1EA9:@6 AA 2A G6 AA 2A AA BS 42] 26D9:G6 GB GO BB GG GB BG BG 1A | 2399:43 GB DB G4 BB DB BB BC 3C
1EB1:A6 @5 AA 85 AA C6 AB DO C8| 2GE1:60 BB GG BG GB 8G Gl BB 26 | 2311:94 BB 1c GO 88 G4 BO 26 51
1EB9:ED A5 AA 91 FA C8 CO G8 49] 2669:88 G1 GG 8G G1 GB F8 1F CB / 2319:06 68 26 6G 20 GG 68 AD EF
1EC1:D@ DC A5 FA 18 69 G8 85 FD] 2GF1:09 GB GG 8B BB AY 26 85 YE | 2321:06 1c BG 8C G4 AD 9G 85 A4
1EC9:FA 98 G2 E6 FB E6 FC DG IC} 29F9:84 AI 68 85 86 AZ 20 38 83 | 2329:A8 85 AA AY 23 85 A7 AD 3D
1ED1:92 E6 FD EG FE DG 62 E6 1D| 2161:68 AY BG 85 83 85 85 AG E7 | 2331:08 85 AD AB Bl A7 C9 22 7A
1ED9:FF A5 Al 29 61 AA BD 7C FG| 2169:G8 Bl 83 Dl 85 DO 63 C8 44 | 2339:FG G6 C8 CO G3 DO FS 66 46
1EE1:0B 8D 26 D@ AS FD C9 1F EF| 2111:C@ FA DG F5 AS 83 18 69 CB | 2341:C8 98 48 18 65 A7 85 A7 19
1EE9:90 Al A5 FC C9 E8 96 9B BA} 2119:FA 85 83 85 85 90 G4 E6 6G | 2349:96 G2 E6 A8 AG BG Bl A7 CF
1EF1:A5 C8 8D 20 DG 60 A2 GB 34] 2121:84 E6 86 CA DO £1 28 9G CB / 2351:C9 22 FO G9 91 AI CB CB 39
1EF9:8A 95 A7 E8 EG G5 DO FO 1B] 2129:6D AJ 1C 85 84 AD 88 85 99 | 2359:10 DO F3 FG BI AD AG 91 2B
1F@1:A8 AQ @1 85 83 A2 O5 Bl D8| 2131:86 A2 G4 18 96 CA AY 1C 8G | 2361:A9 C8 CO 10 DO FO 68 85 BC
1F69:FA 85 B6 CA FG 32 AY GG 4D] 2139:C5 C4 BG 38 AD DB 85 84 69 | 2369:AB AD 206 38 ES AB 18 65 EA
1F11:06 B6 2A 06 B6 2A C9 GG 97| 2141:A9 8C 85 86 AD GB 85 83 70 | 2371:A7 85 A7 9G G2 E6 AB AS 8D
1F19:F@ Fl C5 AA FG ED C5 AB 26| 2149:85 85 A2 04 AG BG Bl 83 36 | 2379:A9 18 69 10 85 AD 9G G2 BE
1F21:F@ E9 86 BS AA A5 AA FO BG| 2151:29 GF 51 85 29 OF DG 1B BO | 2381:E6 AA AG GG FO AE AD G4 93
1F29:04 86 AB D@ G2 86 AA A5 B2] 2159:C8 CG FA DG Fl AS 83 18 El | 2389:85 FB AS B7 85 FA AS A7 4D
1F31:83 95 A6 18 69 G1 C9 G4 D3} 2161:69 FA 85 83 85 85 96 G4 67 | 2391:48 A5 AB 48 A2 GG AO GF 64
1F39:A6 B5 BO 39 85 83 90 CB G6| 2169:E6 84 E6 86 CA D@ DD 38 13 | 2399:Bl A7 84 AB 26 AB 13 A4 68
1F41:C8 CO @8 99 C2 AG BH Bl 68] 2171:BG G2 28 18 6G AD 46 85 C2 | 23A1:AB 91 FA 88 106 F2 AS FA 9C
1F49:FC 48 29 GF 85 B5 68 4A 4C| 2179:FA 26 65 13 A2 G4 AG BG 85 | 23A9:18 69 28 85 FA 96 G2 E6 BB
1F51:4A 4A 4A 85 B4 Bl FE 29 7C| 2181:26 A7 16 26 AG 13 AQ 68 8F | 23B1:FB A5 A7 18 69 10 85 A7 14
1F59:GF 85 B6 AD 21 DG 29 GF DF} 2189:85 FA 26 38 13 AS D4 C9 F6 | 23B9:96 62 E6 AS C5 AD DB GO AF
1F61:85 B3 AG @@ A2 G2 BS B4 AG} 2191:58 FO FA EA 20 65 13 26 27 | 23C1:A5 A8 C5 AA 90 G3 EB DG 9B
1F69:C5 B3 D@ 92 94 A7 CA 16 9A! 2199:AG 13 A2 G2 AG 14 26 A7 A2 | 23C9:65 E8 EG GF DG CB 68 85 DI
1F71:F5 A4 B3 A2 @2 BS A7 DO 7B] 21A1:16 AY 4G 85 FA A2 G7 86 BG | 23D1:A8 68 85 A7 60 48 AG OF 26
1F79:62 94 B4 CA 10 F7 A4 A7 72) 21A9:FB 86 FD A9 20 85 FC AS 9C | 23D9:Bl FC 49.80 91 FC 88 16 OB
1F81:A5 B4 C5 BS DG G2 84 AB 14] 21B1:FA 85 FE AG OG Bl FD 91 11 | 23E1:F7 68 DO G1 60 4A BO GC G2
1F89:C5 B6 DG G2 84 AD A4 AB 4F | 21B9:FB 98 18 69 GB AB 9G FS B3 | 23E9:A5 FC 69 28 85 FC 90 GE 41
1F91:A5 B5 C5 B6 DG G2 84 AI 75] 21C1:E6 FC E6 FE A5 FC C9 46 78 | 23F1:E6 FD BO GA AS FC E9 28 FE
1F99:A2 @2 AQ G1 DS A7 D@ 18 F5| 21C9:Dd EB 38 AOS 30 AG GG 88 9D | 23F9:85 FC BO G2 C6 FD AO OO FO
1FA1:A9 62 AA D5 A7 FS 32 CA 18] 21D1:DG FD £9 G1 BG F9 CA 14 SC | 2491:48 FG D3 A2 G5 AG GO Bl AA
1FA9:16 F9 AA AY G3 DS A7 DB ED! 21D9:CE 6G A2 9G 86 FB 86 FD 1F | 2499:FA 48 Bl FC 91 FA 68 91 Cl
1FB1:82 D6 A7 CA 16 F7 3@ 21 2A] 21E1:A9 206 85 FC A5 FA 85 FE A4 | 2411:FC C8 CO 26 DG Fl AS FA B8
1FB9:CA 16 El A2 @2 BS A7 C9 C7 | 2169:AG OB Bl FB 91 FD AQ GG 4A | 2419:18 69 46 85 FA AQ G1 65 BE
1FC1:063 F@ G4 C9 B62 DG G2 D6 G9} 21F1:91 FB 98 18 69 G8 AB 98 DD | 2421:FB 85 FB AS FC 18 69 46 FD
1FC9:A7 CA 10 Fl A2 G2 AY Gl 21] 21F9:F1 E6 FC E6 FE A5 FC C9 4F | 2429:85 FC AQ Gl 65 FD 85 FD E4
1FD1:D5 A7 B@ G5 CA 16 FO 30 B6 | 2261:40 DG E7 38 AD 3G AD BG 69 | 2431:CA DG D2 AS FA 38 ED 40 94
1FD9:E2 A5 B3 85 BO 85 Bl 85 46] 2269:88 DG FD £9 G1 BG FO E8 CB |} 2439:85 FA A5 FB EQ 26 85 FB 66
1FE1:B2 A@® 6G A2 G2 BS A7 AB AA! 2211:EG6 G8 DB C8 6G A2 28 AG EC | 2441:A5 FC 38 EOS 40 85 FC AS FB
1FE9:F@ @5 BS B4 99 AF GG CA 3A | 2219:00 88 D@ FD CA DO FA 60 69 | 2449:FD E9 26 85 FD A2 63 46 EE
1FF1:10 F3 60 A9 20 85 FB AY 94 | 2221:C9 FF D@ G3 AD SE 68 85 Al | 2451:FB 66 FA 4A 66 FC CA DO C2
1FF9:1C 85 FD AG G@ 84 FA 84 FD] 2229:B6 4A 4A 4A 4A 4A A8 BO CF | 2459:F6 18 69 1C 85 FD AS FB 7D
2001:FC A@ GB Bl FC 29 GF 85 33 | 2231:CG 13 45 B6 66 806 BB 40 F3 | 2461:69 1C 85 FB AG GG A2 G3 23
2609:FE Bl FC 4A 4A 4A 4A 85 GF | 2239:26 40 CG 86 806 AD FF 8D FS | 2469:Bl FA 48 Bl FC 91'FA 68 F9
2011:FF Bl FA DG 13 C8 CG G8 6F | 2241:GF D4 AY 8G 8D 12 D4 A2 8B | 2471:91 FC C8 CA 16 F2 98 18 1D
2019:D0 F7 A8 AS FE OA GA GA 6D | 2249:08 BD GG 14 85 FA BD @1 D2 | 2479:69 24 A8 CO C8 99 E7 AS OB
29021:0A 65 FE 91 FC 38 BO 2E F8/ 2251:14 85 FB AD 1B D4 C9 64 7F | 2481:FB C9 38 90 G1 66 AS FB 1A
2029:AG 66 AS FE C5 FF 96 64 Bl] 2259:BG F9 29 FE A8 B9 GO 14 C9 | 2489:69 BC 85 FB AS FD 69 BC DA
2031:F@ 1C DG 22 Bl FA 49 FF 39] 2261:85 FC B9 01 14 85 FD 8A 2C | 2491:85 FD 94 D@ AD GG DO 38 82
2039:91 FA C8 CO @8 DG F5 AS 3B] 2269:48 26 4D 1A 68 AA E8 E8 CD | 2499:£9 18 85 B2 AD 10 DG 29 31
2041:FE GA GA OA GA GS FF AB 6A | 2271:EG 64 DG D5 6G GG 26 26 1A | 24a1:91 E9 GG AD GS 4A 66 B2 BF
2049:00 91 FC 38 BO G8 98 91 79 | 2279:20 40 20 66 26 86 20 AG CB | 24a9:88 DG FA AD G1 DG 38 EO 4A
2651:FA C8 CO 68 DG F9 AS FA BE | 2281:20 CG 20 BG 20 GG 21 26 7B | 24B1:32 4A 4A 18 65 B2 GA 85 FF
2659:18 69 68 85 FA 96 62 E6 5E| 2289:21 40 26 60 26 8G 26 AD 59 | 24B89:B2 66 AS FF 8D 18 D4 8D aC
2061:FB E6 FC DO 62 E6 FD AS 53 | 2291:26 CO 26 EG 26 GG 27 26 8B | 24c1:g1 D4 AO 8g 8D 86 D4 68 8B
2069:FD C9 1F 96 96 A5 FC C9 17 | 2299:27 40 27 60 27 80 2C AG AG | 24c9:aD 1G DG 29 G1 DG a7 Ad 9C

2071:E8 96 96 66 OO FF FF OG 62] 22A1:2C CO 2C EG 2C GO 2D 26 9B 24D1:28 CD 00 DG B

2679:80 G1 G6 80 G1 GB 8G G1 4c | 22A9:2D 46 2D 66 2D 8G 2D AG AG 24D9:D@ 38 £9 26 a 2a ae oH Se
2081:06 84 G1 GG 8G Gl GO 86 8A | 22B1:2D CG 32 EG 32 BB 33 26 29 24E1:03 CE 16 D® 68 AD 16 DG 19
2089:61 G6 8G G1 86 8G G1 GG GE | 22B9:33 40 33 66 33 88 33 AG BE | 2469:29 G1 FO G7 AD BG DG CO 6E

G-36 COMPUTE DECEMBER 1993

24F1:26
24F9:20
2561:D8
2509:F8
2511:61
2519:8D
2521:B9
2529364
2531:68
2539:28
2541:FA
2549:ED
2551:90
2559:FA
2561:D0
2569:CA

2571:GF°

2579:FE
2581:A7
2589:A9
2591:85
2599:28
25A1:C8
25A9:A5
25B1l:FC
25B9:DG
25C1:61
25C9:BB
25D1:38
25D9:85
25E1:A2
25E9:BG
25F1:28
25F9:38
2601:04
2609: 28
2611:37
2619:A9
2621:61
2629:A9
2631:98
2639: FE
2641:20
2649:AB
2651:A9
2659:A5
2661:C9
2669:15
2671:A5
2679:E9
2681:20
2689:3A5
2691:BO
2699:A5
26A1:26
26A9:E5
26B1:85
26B9:88
26C1:A7
26C9:E6
26D1:66
26D9:15
26E1:A7
26£9:8E
26F1:2D
26F9:85
2761:AG
27069:FB
2711:2D
2719:60

Go
Bo
c8
OA
65
ag
A8
1c
81

2759:26
2761:C9

BA
44

FF
FO

AA
o8

AG
cg

2791:F6
2799:0A
27A1:16

o5
B9
E7

Ag
Vr)
26

06
6B
ES

ES)
07
FB

AG
88
48

27D9:BG
27E1:96
27E9:17
27F1:16
27F9:66
2801:61
2809:85
2811:E5
2819:20
2821:D9

BD
De
B9
F7
85
18
FC
19
E3
G6

20
14
OF
26
AT
Ag
ag
PG
a7;
26

Bo
As
6B
Cr)
AQ
O4
6G
FB
4c
13

AA
16
07
AG
AB
AQ
15
De
co
9A

cg
AG
88
Ag
20
B7
20
66
1l
19

2879:85
2881:26
2889:8D
2891:26
2899:D6
28A1:99
28A9:A9
28B1:64
28B9:00
28C1:F6
28C9:4C
28D1:A9
28D9:F9
28E1:02
2859: 03
28F1:01
28F9:D0
2961:85
2989:98
2911:B9
2919: 6B
2921:62
2929:58
2931:8D
2939:06
2941322
2949:1B

c8
AG
iit
A7
Ag
8G
FO
D4
19
69
8E
38
iE
DG
De
8D
8D
CA
1B
7A
8D
AG
FO
16
20
De
co

8D
@B
De
16
26
D4
8D
ag
26
AD
15
8D
Ag
AQ
ag
rs
1D
E6
ag
OB
28
oo
D7
4c
9A
G6
2a

20
AD
De
EA
85
c8
G6
8F
cs
1B
Ag
F8
18
32
66
Do
Dg
cB
Ur)
8D
Dg
84
cg
67
16
28
Dg

21
69
DA
8D
6G
De
11
D4
cs
61
G4
39
Dg
Dg
DB
8D
85
cg
A4
B9
GE
D4
G6
25
1B
4C
78

1) )
18
0B
20
98
F8
8D
20
13
D4
D4
8D
8D
8D
ag
17
CB
33
CA
7c
De
c9
26
Do
cg
67
16

2951:4C
2959:15
2961:D0
2969:00
2971:C9
2979:D6
2981:73,
2989:8D
2991:A9

40
Xv)
26
26
Do
DB
96
21
0B
8A
20
B7
20
85
Te
04
8c
20
AG
8c
OA
5A
AD
DB
DB
10
og
B6
37
FB
14
Ag
38
8G
@D
AS
1A
1B
DB
8D
Ag
07
a9
F2
8D
Da
FB
FA
02
A8
FB
90
E6
DB
85
2c
a4
68
FB
9G
co
Ag
Ag
E6
D8
96
Ag
91

29B9:9A
29C1:8D
2909:C4
29D1:C8
29D9:D8
29E1:81
29E9:D4
29F1:A2
29F9:E0
2AG61:29
2A69:62
2A11:A8
2A19:62

2A41:A6
2A49:61
2A51:DG
2A59:14
2A61:68
2A69:15
2A71L:FO
2A79:8D
2A81:A9

2AA9:60
2AB1:D8
2AB9: 28

2B91:D0
2B09:84

2B31:A4
2B39:A9
2B41:A9
2B49:B1
2B51:E6
2B59:A5
2B61:C9
2B69:84
2B71:D0 E6
2B79:E6 cg

DECEMBER 1993 COMPUTE G-37

PROGRAMS

2B81:A9
2B89:E6
2B91:D6
2B99:98
2BAL:FA
2BA9:GE
2BB1:D1
2BB9:47
2BC1:20
2BC09:19
2BD1:0F
2BD9:15

13
FC
G2

EA

8D
@B
4c
53
45
12
63
49

85
06
E6
Ag
15
6G
58
41
@D
OF
63
GE

FB
02
FB
65
G3
AQ
OB
57
09
16
63
26

Bl
E6
AS
8D
58
)
ao
20
gc
13
63
14

91
E6
c9
63
7D
DG
4a
62
48
19
63
G9

FA
FA
1c
ag
FF
85
49
19
@5
06
Ct)
13

2BE1:20
2BE9: 80
2BF1:26
2BF9:04
2C@1:CE
2069305
2C11:0E
2C19: 2E
2C21:14
2029349
2C31:12
2€39:2C
2C41:0F
2C49:9D
2¢51:C3
2C59: 26
2C61:14
2C69:95
2071: 65
2079313
2C81:60
2089: 80
2091:05
2099393
2CA1:00
2CA9:91
2CB1:98
2CB9:95
2CC1:67
2CC9: 03
2CD1:03
2CD9: 63
2CE1:63
2CE9: 63
2CF1:03
2CE9: 93
2D01:96

13
19
B
Cr)
20
93
a5
oo
2E
47
@5
CA
16
O5
cs
20
17
13
@D
@5
15
22
oc
OF
1E
G3
09
@5
6
06
ol
G1
G1
a5
G4
G4
i)

63
63
@5
19
14
14
17
1D
06
53
6S
2c
O5
2E
26
13
OF
2E
Ol
oc
16
c8
16
GE
D3
6B
13
GE
GE
OE
GE
GE
GE
GE
GE
GE
Oo

12
15
19
D2
OF
2E
20
Dl
2y
41
GE
CB
6G
06
@D
17
26
Cs)
12
@5
69
cs
2E
66
D4
20
1)
2E
3D
22
27
OL
Ol
4B
24
EC
1)

oS
12
13
cs
26
96
a4
26
49
57
3A
2c
1c
22
ol
G1
10
1D
6B
G3
5
cc
6
09
CE
14
LT,
06
07
G3
G7
G3
G3
63
93
@D
1)

GE
OF
G1
DS
a5
C4
13
15
26
13
17
26
12
Do
OB
0@
@5
26
Ol
05
as
26
C3;
@D
26
20
G3
GE
GE
GE
GE
GE
GE
GE
GE
GE
06

3A
12
GE
b2
gc
26
9B
09
4a
03
cg
@D
Ol
cL
20
17
03
15
26
04
2E
08
20
2E
02
14
12
OD
41
27
17
G1
49
4F
27
51
Go

Emil Heyrovsky, 19, is a mathematical
engineering student at Prague Polytech-
nic in the Czech Republic.

SPLAST

By William F. Snow
Splast is an enjoyable way to practice
spelling words. There are a lot of spelling
programs around, but Splast has some
advantages. It's both fun to play and chal-
lenging. Because Splast presents the
words in the same format used by some
popular standardized tests, it's also
great practice for taking tests!

Splast is written in BASIC. To help
avoid typing errors, enter the program
G-38 COMPUTE DECEMBER 1993

with The Automatic Proofreader. See “Typ-
ing Aids” elsewhere in this section. Be
sure to save a copy of the program be-
fore you attempt to run it.

How to Use the Program

To play Splast, simply load the pro-
gram and type RUN. The first screen
gives instructions for playing the
game. The player is then asked to
give his or her initials and to choose a
level of play.

After a level of play is chosen, the
game begins. The Splaster, located at
the bottom of the screen, is controlled
by a joystick in port 2.. Three words are
flashed on the screen. Two of them are
spelled correctly, and one is mis-
spelled. The player must position the
Splaster beneath the misspelled word
and hit the fire button. Move fast be-
cause the words don’t stay on the
screen for long. The Splaster launches
an arrow at the selected word, so be
sure your aim is as accurate as your
spelling.

The skill levels are 1-3, with 1 being
the easiest. As the levels increase, the
time given to find and splast the incor-
rect word decreases, but the points
awarded for each Splasted word in-
crease. The program keeps track of
the high score achieved during each
session so that players can compete
with each other.

After all the words have been present-
ed, you get a screen that gives your
score and lists both the words you
spelled correctly and the ones you
missed. You then have the opportunity
to play again or quit.

Because Splast is written in BASIC,
it's easy to modify. The words used are
in data'statements in lines 1340-1360,
The program is set to use 25 words. If
you use a different number of words,
you'll have to make a few changes to
the program. You'll need to change the
dimension statements and the FOR-
NEXT loop in line 20, the FOR-NEXT
loops in lines 290 and 310, the CT val-
ue in lines 350 and 470, the random
number generator in lines 370 and
380, the divisor in line 920, and the
FOR-NEXT loops in lines 1090 and
1140.

If all the words in a given list are
long, there may be a problem with the
right-hand word wrapping around the

screen. This shouldn't happen often,
however.

In my fifth-grade classroom, | have a
disk with 36 versions of Splast, one for
each weekly spelling unit. The children
really. enjoy using it to study the
words. After the program itself is
typed in, it really doesn’t take long to
change word lists. A parent or teacher
might even have the child or children

type in the words.

SPLAST

BM @ REM COPYRIGHT 1993 - COMP

RF

HD

Gc

MJ
PQ
EK

EM

FQ

DF

BF

KS

FA

BG

CR
KC

AQ

GD

U
16
26

36

49
56
66

76

86

96

106

116

126

136

14G
156
166

176

TE PUBLICATIONS INTL LTD
-ALL RIGHTS RESERVED
REM SPLAST BY WILLIAM F.
SNOW
DIMWDS$ (25) ,Y¥(25) ,R$(25),
WWS (25) ,RWS$(25):FOR I=1
{SPACE}TO 25:READ WDS(T)
?NEXT
AS=CHR$ (65) :ES=CHR$ (69):
IS=CHRS (73) :O$=CHRS$ (79) :
US=CHRS (85) :V=53248:SL=5
4272
FORS=12288 TO 12351:READ
SP:POKE S,SP:NEXT
FORS=12352 TO 12415:READ
SP:POKE S,SP:NEXT
POKE53280,1:POKE53281,13
: PRINT" {BLK} {CLR}
{3 DOWN}"SPC(17)"{RED}SP
LAST{BLK}"
PRINT: PRINT" {4 RIGHT}THE
OBJECT OF {RED}SPLAST
{BLK} IS TO FIND THE MIS
PELLED WORD";
PRINT" AND '{RED}SPLAST
{BLK}! If OFF THE
{2 SPACES}SCREEN.";
PRINT" YOU ARE GIVEN THR
EE WORDS AT A{2 SPACES}T
IME.";
PRINT" TWO OF THEM ARE
{SPACE}SPELLED CORRECTL
Y AND ONE IS WRONG.";
PRINT" YOU MUST POSITIO
N";
PRINT" YOUR'{RED}SPLAST
ER{BLK}' UNDER THE MISP
ELLED WORD{5 SPACES} (US
ING A JOYSTICK ";
PRINT" IN PORT TWO) AND
{SPACE}HIT{2 SPACES}THE
FIRE BUTTON.";
PRINT: PRINT" {4 RIGHT}TH
ERE ARE THREE LEVELS.";
PRINT"AS THE LEVELSINCR
EASE YOU ARE GIVEN";
PRINT" LESS TIME TO
{5 SPACES}FIND THE INCO
RRECT WORD.
PRINTSPC(9)"{4 DOWN}HIT
ANY KEY TO BEGIN

cs

AS

XJ

SH

188

199

296

210

229
236

249

508
519

520 WL=LEN(RS(CT)) :L=INT (RN

GET WWS:IF WWS=""THEN18
6

RC=1: INPUT" {CLR}

{2 DOWN}{3 RIGHT}PLEASE
ENTER YOUR INITIALS";I
NS

RC=1:PRINT"{2 DOWN}

{3 RIGHT}WHAT SKILL LEV
BL) 2

PRINT: PRINTSPC(18)"1) B
EGINNER": PRINT: PRINTSPC
(16)"2) AVERAGE

PRINT: PRINTSPC(18)"3) &
XPERT

GET PL$:IFPLS$="L"ORPLS=
"2"ORPLS="3"THEN250

GOT023¢

PL=VAL (PLS)

PRINT" {CLR}{5 DOWN}"SPC
(14) "PLEASE{2 SPACES}WA
IT": PRINT: PRINTSPC(12)"
SCRAMBLING WORDS"
POKE2046,192: POKEV+21,1
: POKEV+39,6
POKEV, 136: POKEV+1, 228

FORI=1 TO 25
X=INT(RND(.)*25) +1

FORCK=1 TO 25:IFX=Y (CK

THEN3G0

NEXT CK:¥(I)=X
RS(X)=WDS(I) :NEXTI

cT=1

POKEV+31,@:IF CT>25 THE
N920
ES=0:XA=130:POKEV, XA:GO
SUB520

WG=INT (RND(.) *25)+1:WGS
=R$ (WG) : IFWGS=R$ (CT) THE
N376

WH=INT (RND(.)*25)+1:WHS
=RS (WH) : IFWHS=WGSORWHS=
R$ (CT) THEN38@

C=INT (RND(.)*3)+1:0N C
{SPACE}GOSUB776,789,79G
IF PL=l1 THEN FOR FL=1T0
25:1F ES=1 THEN466

IF PL=2 THEN FOR FL=1TO
20:IF ES=1 THEN46@

IF PL=3 THEN FOR FL=1T0
15:IFES=1 THEN46G

CK=G: PRINT" {CLR}

{7 DOWN}{3 RIGHT}"WwoS(1
) SPC (4) WOS (2) SPC (4) WOS (
3)

CL=6:GOSUB686

IF CL=1 THEN GOSUB879
NEXTFL

POKEV+31,@:1F CT>25 THE
N926

IF ES=l THENRW=RW+1:RWS
(RW) =RS (CT) :WwS (CT) =""
IF ES<>1 THEN GOSUB1336
zWW=WW+1:WWS (WW) =RS (CT)
:RN=0

cT=cT+1

GOTO356

MB

HD

KM

HE

BS

BM
PB

536
549

558
566

576
588
599
600
619
620
630
649
658
665
676
688
696
766
718
726
736
748
750

769

776
789
798

808

810

826

830

840

858

860
870

D(.) *WL+1) :LES=MIDS (RS (
CT) ,L,1) :LE=ASC (LES)
LTS=CHR$ (LE)
IFLTS=A$ OR LTS=ES OR L
TS=I$ OR LTS=0$ OR LTS=
US THEN56G
GOTO520
RV=INT (RND(.) *5) +1:0NRV
GOT0S74,586,590,600,61
G
VS=AS:GOT0626
VS=ES:GOT0620
VS=1$:GOT0620
V$=0$:GOT0620
V$=uSs
IF V$=LTS THEN566
RWS=LEFTS (R$ (CT) ,L-1)
RM=WL- (L) : IFRM<1THEN5 26
LWS=RIGHTS (R$ (CT) , RM)
NWS=RWS+VS+LWS
RETURN
JY=PEEK (56320) AND15:FB=
PEEK (56328) AND16
IF JY=7THEN XA=XA+10:1F
XA>25QTHEN XA=250
IF JY=1l THEN XA=XA-10:
IF XA<30 THEN XA=36
POKEV,XA:1F FB=6 THEN G
OSUB730:RETURN
RETURN
POKEV+31, 0: POKE2041,193
: POKEV+21,3:POKEV+2,XA:
POKEV+4G,2
FOR Y=229 TO 50 STEP-1:
POKEV+3,Y
IF PEEK (V+31)AND2=2THEN
CL=1:RETURN
NEXT: RC=@: POKEV+21, PEEK
(V+21) AND (255-2) :GOSUBL
360: RETURN
WOS (1) =NWS$:WOS (2) =wGS:W
O$ (3) =WHS:CW=1: RETURN
WOS (1) =WGS$:WOS (2) =NWS:W
OS (3) =WHS:CW=2: RETURN
WOS (1) =WG$:WOS (2) =WHS:W
O$ (3) =NWS:CW=3: RETURN
PRINT" {CLR}{12 DOWN}
{4 RIGHT}YOU SPLASTED T
HREE IN A ROW"
PRINT:PRINT"{8 RIGHT}WI
THOUT A MISTAKE !!!":FO
R RC=1 TO 2500:NEXT
RC=G:PRINT"{CLR}":POKE5
3281,1:POKEV+46,0:FORWA
=1 TO 500:NEXT
FORI=1T015: PW=INT (RND(.
)*58) : PRINTSPC (PW) "
{BLK}NICE GOING!":NEXT
FOR WA=1 TO 2690:NEXT:P
OKE53281,13
POKEV+21, PEEK (V+21) AND (
255-2) : POKEV+29,0:POKEV
+23,0:CW=0: POKEV+3,@
GOSUB1330
IFXA<109 AND CW=1 THEN
{SPACE }GOSUB1170:ES=1:R
ETURN

EB

880

896
965
919
929
936

949

958

968

976

986

999
1606

1919

1920
1830

1646
1958

1666

1076
1986
1896
1196
1119

1126
1136
1146
11596

DI

IFXA<2G5ANDXA>169ANDCW=
2THENGOSUB1170:ES=1:RET
URN
IF XA>189 AND CW=3 THEN
GOSUB1176:ES=1:RETURN
IF ES=@ THEN GOSUB1300
POKEV+21, PEEK (V+21) AND (
255-2) : POKEV+3,9:RC=0:R
ETURN
RP=INT ((RW/25) *10@) :POK
EV+21,G
PRINT" {CLR}{2 DOWN}YOU
{SPACE}SPLASTED "RP"S O
F THE WORDS"
PRINT" {DOWN} {2 RIGHT}TH
E WORDS YOU GOT CORRECT
ARE": PRINT
FORI=1 TO RW: PRINTRWS (I
), :NEXT
PRINT" {HOME}{15 DOWN}
{2 RIGHT}THE WORDS You
{SPACE}GOT WRONG ARB":P
RINT
FORI=1 TO WW: PRINTWWS (I
) ,:NEXT
PRINT: PRINTSPC (8) "{WHT}
HIT ANY KEY TO CONTINUE
{BLK}"
GET WAS:IF WAS=""THEN99
6
PRINT" {CLR} {5 DOWN}"SP
(13) INS"'S SCORE WAS
{SPACE}"sc
PRINT: PRINT"{3 SPACES}
THE BEST SCORE FOR THI
S SESSION IS"
IFINS=HNSTHEN1G46
IFSC=HSTHENPRINT"
{4 SPACES}A TIE BETWEE
N "INS" AND "HNS" WITH
"SC:GOTO1966
IFSC>HSTHEN HS=SC:HN$=
INS
PRINT: PRINTSPC(15)HNS"
's{2 SPACES}"HS
PRINT" {5 DOWN}
{3 SPACES}WOULD YOU LI
KE TO TRY AGAIN (Y¥/N)"
GET PAS:IF PAS="Y"OR P
AS="N"THEN1690
GOTO1070
If PAS="Y"THENFORER=1T
025:¥ (ER) =6:RWS(ER)=""
:WWS (ER) =": NEXT
Y" THEN RW=0:WW
=0:SC=6;GOTO206
PRINT" {CLR} {6 DOWN}IS
{SPACE}THERE ANYONE EL
SE WHO WANTS TO PLAY ?
":PRINTSPC(15)"(¥,N)"
GET PBS:IF PBS="Y"OR P
BS="N"THEN1140
GOTO1120
IE PBS="Y"THENFORER=1T
025:¥ (ER) =6:RWS (ER) =""
:WWS (ER) ="":NEXT
IEPBS="Y"THENRW=6:WW=0

ECEMBER 1993 COMPUTE G-39

PROGRAMS

SLL SII | IE Te ge

EH

FR

KM

DX
BP
XI
HJ
HJ
AQ
CB
QB
HC

G-40

1166
1176
118
1196
1266
1216

1229

1238

1240

1256

1266
1276
1286

1296
1366

1316

1326

1336

1349

1356

1369

1376
1386
1398
1406
1416
1426
14396
1446

145@

:SC=6:GOTO19G

END

IF PL=l1 THEN SC=SC+16
IF PL=2 THEN SC=SC+12
IF PL=3 THEN SC=SC+15
RN=RN+1:FOR LL=SL TO §
L+24:POKE LL,@:NEXT:PO
KE SL+24,15

POKE SL+5,64:POKE SL+6
7136

POKESL+1,28:POKE SL,49
:POKE SL+4,33:FOR SN=1
TO 750:NEXT
POKESL+1,38:POKESL, 38:
POKESL+4, 33:FORSN=1T07
@6:NEXT

POKE SL+4,32:FOR T=1 T
O 5@:NEXT

POKE SL+1,56:POKE SL,9
9:POKE SL+4,33:FOR SN=
1 TO 768:NEXT

POKE SL+4,32:FOR T=1 T
O 500:NEXT
POKEV+21, PEEK (V+21) AND
(255-2) : POKEV+3,@

IF RN=3 THEN GOSUB366:
RN=@

RETURN
FORLL=SLTOSL+24: POKELL
7, @:NEXT: POKESL+24,15:P
OKESL+5, 34: POKESL+6,26
@
POKESL+1,8:POKESL,97:P
OKESL+4,33:FORSN=1TO17
00:NEXT: POKESL+4, 32
FOR SN=1 TO 50:NEXT:RN
=9:RETURN

PRINT" {CLR}":FORRC=1 T
O 1660:NEXT:ES=1:RETUR
N
DATAGRACE , GRAZE, WHALE,
BRAKE ,OPERATE ,MISTAKE,
ESCAPE,GRAPES, SAFELY
DATACRAZY,BREAK,GREATE
ST,FARE,SCARE,SQUARE,C
OMPARE, PREPARING, SCARC
E

DATACANARY, RARELY, RELA
TED,RELAXATION, REPUTAT
ION, BARE, RARE
DATAGGG,600,000,000,00
G,900,600,909
DATAGGG,560,000,000,09
G,624,068,000
DATAG24,000,000,024,09
G,006,024,006
DATAGGG,024,690,062,02
4,124,002,624
DATAG64,002,024,064,00
2,024,064,127
DATA255,254,964,666,00
2,064,660,062
DATAG66,060,066,064,06
@,002,067,255
DATA194,071, 255,226,087
9,255,242,060

DATAGGG ,690,660,006,06

COMPUTE DECEMBER 1993

G, 608,009,000
DATAGGG,000,600,000,56
9,905,000,088
DATAGGO, 060,900,068, 08
@, 000,028,009
DATAGGG,G42,006,005,97
3,008,808,073
DATAGGO,000,073,000,08
6,008,000,000
DATAGG8 , G90, 000,008,008
G,000,008,090
DATAGGB,G08,066,060,00
8,000,000,008
DATAGSO ,900,008,900,90
9,008,008,000

MC 1460

HE 1476
KC 1480
MA 1496
EG 1568
AX 1516

Gs 1526

William Snow, the author of Scud, is a
teacher. He lives in McHenry, Illinois

—

ONLY ON DISK

In addition to the type-in programs
found in each issue of the magazine,
Gazette Disk offers bonus programs.
Here's a special program that you'll
find only on this month's disk.

Brush Strokes
By Maurice Yanney
Lebanon, PA

The object of this arcade-style game
for the 64 is to guide a number of
randomly moving paint brushes over
empty boxes that need painting. With
a joystick in port 2 you control a pen-
cil that draws or erases lines on the
screen. Since the brushes can't
cross a line, you can maneuver them
toward the boxes.

Of course, it's not as easy at it
sounds. If a brush touches a pencil,
the pencil is ruined. You have only so
many pencils during a game. Boxes
must be painted within a time limit,
too, so keep an eye on the clock.
When you finish painting one level,
you move on to another with an extra
brush and set of boxes added each
time you advance.

You can have this program, our
PD picks, and all the others that ap-
pear in this issue by ordering the Oc-
tober Gazette Disk. The U.S. price is
$9.95 plus $2.00 shipping and han-
dling. Send your order to Gazette
Disk, COMPUTE Publications, 324
West Wendover Avenue, Suite 200,
Greensboro, North Carolina 27408.

(bike a

TYPING AIDS

MLX, our machine language entry
program for the 64 and 128, and
The Automatic Proofreader are util-
ities that help you type in Gazette
programs without making mistakes.
To make room for more programs,
we no longer include these labor-
saving utilities in every issue, but
they can be found on each Gazette
Disk and are printed in all issues of
Gazette through June 1990.

If you don't have access to a
back issue or to one of our disks,
write to us, and we'll send you free
printed copies of both of these
handy programs for you to type in.
We'll also include instructions on
how to type in Gazette programs.
Please enclose a self-addressed,
stamped envelope. Send a self-ad-
dressed disk mailer with postage to
receive these programs on disk.

Write to Typing Aids, COM-
PUTE'’s Gazette, 324 West Wen-
dover Avenue, Suite 200, Greens-
boro, North Carolina 27408.

ATTENTION
WRITERS
PROGRAMMERS

Gazette wants to purchase and pub-
lish your utiities, applications,
games, educational programs, and
tutorial articles. If you’ve created a
program that you think other read-
ers might enjoy or find useful, send
it and the documentation on disk to
the following address.

Gazette Submissions Reviewer
COMPUTE Publications

324 W. Wendover, Ste. 200
Syed geal 7 ri ZO e) a

atime Snood, an. SASE if you
want to have your material returned.